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5 tb0y 4 Seem 8be PFikGiES PAMINFE Base, Yoo 0le manss 28 cy 
title pli$convert - pl1 general purpose data type conversion package 
"ident °/1-007/ =" ctf edit DsBi of were 
sEdit 0SB1 $ 
sEdit WHM1 3 
sEdit WHM! 
sEdit WHM1003 
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THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corres 
ONLY IN ACCORDANCE ERM F 


2 
® 
& 
® 
® 
+ 
® 
w 
iE ABOVE C OTIC SOF TW ANY OTHER 

COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
® 

w 

® 

* 

® 

® 

® 

® 

® 

® 

® 


*® 
*® 
** 
*® 
** 
°® 
*® 
*® 
*® 
® 
:# TRANSFERRED. 
® 
*® 
*® 
*® 
** 
*® 
*® 
** 
a 
** 


Sssssssssssss 


Ss 


COOQoooocoo°cdo 
oO 
£ 
a 
~ 
= 
wn 
Cc 
_ 
o 

>m 
PP 4 
mo 
m 
> 
r 4 
o 
<c 
me 
~ 
= 
® 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOT:CE 
eORPORAT I On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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++ 
facility: 
VAX-11 PL1 runtime Library. 
abstract: 
; This routine converts any pli computational data type to any other. 
; author: R. Heinen 2-jan-1979 
; Modifications: 
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1-002 Bill Matthews 1982 


Added conversions from non-zero scaled fixed binary to and 
from all other data types. 


1-003 Bill Matthews 29-September-1982 

Invoke macros $defdat and rtshare instead of S$defopr and share. 
1-004 Bill Matthews 09-March-1983 

Add convert from d_float to g_float and convert g_float to d_float 
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previously error was signalled. 
1-005 Bill Matthews 16-June-1983 

Fix bug in fixed binary to fixed decimal conversion 
1-006 Dave Blickstein 13-April-1984 


Changed float binary to_fixed decimal to truncate instead 
of round. SPR #11-66476 


1-007 Dave Blickstein 18-April-1984 


Fixed bug in float binary to fixed decimal that caused a 
decimal overflow at run-time. The ASHP instruction was 
interpreting a large negative shift factor as a positive 

shif his was because the ASHP interprets the shift factor 
as a byte. Bugs note #8. Test program: BUGS8. 


ro 
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0 3 

; 3 external definitions 

0 ‘ $defdat 3; define data types 

0 $psldef 3; define psl bits 

0 $defpic ; define picture node offsets 
0 chfdef 3; condition handler offsets 
Sdefstk 3 stack offsets 

: local macros 

00 y macro casetab a 

00 -word a-casebase 

09 .endm 

0 emacro eo$insert,char 

4 ebyte “x44,char 

6 -endm eo$insert 

0 


-macro qetetore_sign 
-endm eo$store_sign 
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-macro soe tith rept 
re - 
fill 


emacro eo$move,rept 
ebyte <*x90¢rept 
-eram eoS$move 


<*x 
-endm eo$ 
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-macro eo$float,rept 
ebyte <“*xa0+rept> 
-endm eo$float 
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-macro gotend_ float 
.byte 


PL ISCOMVERT = pli general purpose data type AS. Ber Mb abs de Oe: 46: 1 VAX/VMS Macro V04-00 Page RS 
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13 -endm eoSerd_float 
119 -macro Seyi ah sore. ten 
118 ebyte 45,Len 
119 -endm eoSblank_zero 
PY macro eo$replace_sign,len 
1 ebyte 46,Len 
33 : »endm eo$replace_sign 
00 125 «macro eo$load_fill,char 
38 1 $ -byte char 
cendm  eo$load_fill 
999 1 5 -macro eo$load_sign,char 
00 130 -byte char 
000 131 endm eo$load_sign 
0000 1 § 
000 1 -macro ger teed ae hee 
000 134 ebyte 42,char 
4 1 ? -endm eo$load_plus 
$000 137 -macro yyiped in ener 
000 138 -byte 43,char 
000 139 -endm eo$load_minus 
000 140 
4 131 “peere eo$clear_signif 
B68 148 “ends eo$clear_signif 
94 132 Sm hy o$set_signif 
.byte 
9000 147 “enda eoSset_signif 
9464 129 macro eo$adjust_input,len 
00 150 -byte 7, len 
0900 151 -endm eo$adjust_input 
000 136 
it : 7 “peers eo$end 
00 138 ‘onde eo$end 
00 136 
a9 12 : local data 
3 ine 
3 191 rtshare 
188 d_power_of_10: 
00000000 00004080 196 double 1e0 
C coccee core E 165 -double le-1 
A307 4 ° ASD 1 198 -double Jeng 
4FDF9 $66 1 1 double le- 
19 2286 8 D1 1 8 -double 1e-4 
47844718 § AC oer 1 double le-5 
ety D36 $ 1 9 -double Jeng 
A43D05E5 BF94354D 17 double le- 
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~SEP=1984 PLIRTL.S (1) 
7BDBFD9D B7CD3FDF O1A .quat “x 7BDBFD9DB7CD3F DF 
BSTiBBit GAEOABTD 1, 6 wee ARB BBT CBAEBABYD 
9649FE17 SFD73FDC 01B : quad 9649FE175FD73FDC 
seep BGA EF IESSES 18 5 Prt Meets aT ad 
DEA19812 19793F iC 5° .quad A1981219793FD 
Beeporee Povetios I¢ ¢ quad Te ehor oer orri io? 
97682684 C25C3FD5 01D z quad 97682684C25C3FDS5 
goetcere Socute oe 1D : RIMES tart et ititeys 
1ZB9B86A 68493FD2 O1E 61° -quad %x12B9B86A68493FD2 
yeP oboe CoooB0NE 168 ug POMEL LETHE 
7561F9EE 20 ASE CE 1F 44° d *x7561F9EE203A3F CF 
SF UbEDS Sesasos iY i quad NOPE COED OTF SAS9G0 
8898297D CD2B3FCB 47° .quad 98297DCD2B3F CB 
Te EST aS 3 48 PITRE Tat etd tates 73 
60495464 70EF3F 1 50 ° quad 604954 F3FCB 
ST TMA TTS: 0918 351 PME TT Tie iTtty 
243ADD1D 27253FC5 9 0 2§ ’ .quad *x243ADD1D27253F C5 
C487645C 75FEBAOE 0 8 34 ‘quad *XC487645C75FEBAOE 
6D2A94FB D83C3FC1 § 0 56 * -quad “*x6D2A94F pascsect 
AODBD3C7 5663C34A 0 38 37 squad “XAOQD8D3C75663C34A 
242210C9 79CA3FB 6 4 59 * quad 2x242210 Q7OCASEBE 
4D7A7639 11£935D 4 60 ‘quad 407A763911E935D 
E9B440A0 2E3B3FBB 025 68 , .quad x 98440402 383FBB 
D795F82D A7EDF7DD 3 63 ‘quad *XD795FB2DA7EDF 7DD 
75EE0101 E3923FB7 026 65° quad “7 5EE010163923687 
25BB8D16 AS495962 $ 66 ‘quad *X25BB8D16A6495962 
28253401 82DB3FB4 027 68° .quad 328255401 82DB3F B4 
TE2FOA78 EBGEI44E 027 69 ‘quad = “X 1E2FOA78EB6E 144E 
BBEA299A 357C3FB1 4 & .quad “x88EA299A357C3FB1 
E4F2D52C 892476A5 ds ‘quad 6 *XE4F te 92476A5 
A7DDOF5D EF2D3FAD 74 .quad A7DDOF 5D FAD 
OPE ARR 7D PSO7BAAD 9 if ead aE te TB SOT BAAD 

CBIOC4A BC243FAA 2A Ze .quad “xEC C243F 
FEE aoe oat sone Me 378 SIME Tet at 
3COA36F SCES3SFA7 028 .o quad SxZ3COA3OE 3CEOSEA? 
EAAG4C9 EEBDFC90 s "quad = “*X9EAAGAC9EEBDF C90 
ES FBOFSFA3 02 : ad  *x06016BESFBOF 3FA3 
SETI Ta ETAT c 4 PIM SERT tab taTkT 
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ri : Nae ~sbttl pliScurt_any - convert any data type 
r § ; pliScvrt_any - convert any data type 
4 : ; functional descritpion: 
4 60 : This dispatch routine and the individual conversion routines represent 
4 @} 3; an any to any conversion package. The philosophy is to convert wherever 
4 ¢ ; possible. If the arguments describe an undefined data type or out of range size 
4 65 ; of a known data type then the caller is in error and the general ERROR 
4 64 ; condition is signalled. Otherwise the conversion is done with expansion 
re 92 ; or truncation where necessary. 
40 89 ; This routine sets up the arguments and dispatches to the proper routine 
049 rt: ; based on the data types of the source and destination. 
9 29 ; inputs: ( arguments are immediate ) 
200 2 ; (ap) = 8 
400 73 3 4(ap) = address of the address of the source 
400 74; 8(ap) = data type of source 
0400 75 ; 12(ap) = size (p,q) of source 
Be58 6 3 16(ap) = bit offset of source, if necessary 
400 77 ; O(ap) = address of the address of the target 
0400 578; 4(ap) = data type of target 
0400 79 ; 8(ap) = size (p,q) of target 
be 30 3 2(ap) = bit offset of target, if necessary 
8 Be ; outputs: 
$88 Se : The source is converted to the destination. 
CFFC 0:00 386 : -entry pliScurt_any,“*m<iv,dv,r2,73,7°4,75,76,r7,r78,r9,r10,r11> 
0040 8F 68 one : bispsw #psl$m_fu ; enable underflow 
0106 389 ; merge data types and check for invalid types 
54 O08 AC 9A $406 91 ° movzbl 8 (ap),r4 i; get source data type 
56 18 AC 9A OA 3 movzbl 24(aps,r6 3; get the target data type 
=. WW rt 9 cmpb r6,#dat_k_bit_align : Im range? 
4s 1A 041 94 bgtru aver ; if gtru then error 
1s 41 95 bneq $ : if neq then continue 
66 («9 1 38 decb r6 3 squeeze out bit varying 
OE 4 91 061 97 5$: cmpb r4,#dat_k_bit_align ; in range? 
9 1A Q461A 98 bgtru error ; if gtru then error 
2 6 41C 99 bneq 10$ 3: if neq then continue 
4 9 41 $00 decb r4 3s usere out bit varying 
05 4 91 06 601 10$: cmpb r4,#dat_k_flt_dec ; simplify range, by making 
4 6 § 3; making codes contiguous 
03.1 4 6 blequ 15$ : 
54 9 3 4 604 subb 44,74; 
05 ¢ 4 605 15$ rapb £8 #dat_k_flt_dec : 
0 18 428 6 ; sequ 208 
56 4 8 42D euob #4,76; 
4 6 3 : find table entry 
¢¢ 97 609 208: decb r4 ; adjust to zero 
6 97 04 610 decb ré : 
| 
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9 434 611 mulb #9,r4 : 
6 " ol¢ addb r6,r4 : 
? 2 oie ; set up remainder of arguments 
0 Be BC 43A eg movi a4(ap),r ; address source 
1 5 AC & 61 movl 12(ap).r ; get source size 
5 10 aC 44 o18 movl 16(ap),r ; get source bit offset 
¢ 14 BC 44 61 movl a20 aps ,r2 3; get target address 
1c AC OD 44A 620 movl § (ap),r3 3; get target size 
A mov (ap),r 5 
6 20 AC 0 044 621 L 6 
020 1 $2 6 § ; 
4 625 ; 
45 624 ; 
45 625 ; 
3538 6 § e 
eaeseeads <' 41 Be38 ° : 
clr 
epeeeeed D g43p 6 § pushl #pli$_error 
0 C 046 630 clraq rb 3; set no value = also no fcb 
00000000 ' GF 93 FB 0465 631 calls #3,g*lib$signal 3; signal the error 
0 7C Q466C 6 § clrq r0 ; set no value 
04 0466 6 ret 


get target bit offset 
brw case_on_type continue 
fatal - undefined conversion 
rror: 
pushl ay. cp neere 3; actual error code 
=(s 


CU RCOMVERT 


50 8F 


us 


CFFO 

0040 8F B8 
00 54 F 
0000047A 


1 general purpose data 
cvrt_cg = perform out o 


PP_R_DPLAEDPAEAAAAAAAAA AAA AAA AAA A AO 
DD PVPS Be BS BS BEE EI 


=O OONA ME NN  O OD NOAUE WN OOONOM 


66 


668 


Se a 


PDEA AAAAA AA AA AAA AAA AAA OD 


=OOODNOULS WN $9 OONAUS WN OO 
. 


e conver 


type conversi 16- 


SEP-19 
3 P=19 


Be 94:40:46 


AX/VMS Macro V04 
PLIRTL.SRCJPLICO 


«sbttl pliScvrt_cg - perform out of Line conversion 


++ 
pli$cvrt_cg - perform a conversion 


functi 


This is the entry to the conversion logic for the codegenerator. 


onal description: 
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This routine is called to preserve trace back data, but the arguments are passed 
in registers. 


inputs: 


output 


size of the s 


UEWN—O 
“nnnnnan 


address of the soures 


The operation is done. 
RAAT TAACETAAAATAETAAAAARAARAARAAAAEAAARAERARAEREEEREEEE 


WARNING 
Do not change this interface without the proper changes to the codegenerator. 


our 
address of the Soot tnotten 
size of the destination 

case table index 
bit offset of source if an 
bit offset of destination 


t¢ any 


PARAAAAAARAAAALALALAAAAALALALALALASERALAS SARE R AE AAA RADE SE SD 


eentry pliScurt_cg_r3,“m<iv.dv.r4,r5,r6,r7,r8,79,710,r11> 


: enable arithmetic traps 


bispsw #psl$m_fu 
case_on type: 


3; NOTE WELL: 

; ENERATOR 

: OF F Soer cy FCVvf 
caseb baa) 

casebase=. 
casetab picpic 
casetab picfixb 
casetab picfltb 
casetab picfixd 
casetab picfltd 
casetab picchar 
casetab picygae 
casetab picb 
casetab picabit 
casetab fixbpic 
casetab fixbfixb 


DO NOT CHANGE THIS CASE TABLE WITHOUT CHANGING THE CODE 
G Thies bis oa ya 


nent 


outs 


1 general purpose data 
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casetab 
casetab 
casetab 


steabeel 19- 


e conver 


fixbfltb 
fixbfixd 
fixbfltd 


casetab 
casetab 
casetab 
casetab 
casetab 
casetab 
casetab 
casetab 
casetab 
casetab 
casetab 
casetab 
casetab 
casetab 
casetab 
casetab 
casetab 
casetab 
casetab 
casetab 
casetab 
casetab 
casetab 
casetab 
casetab 
casetab 
casetab 
casetab 
casetab 
casetab 
casetab 
casetab cha 
casetab char 
casetab char 
casetab charf 
casetab charfltd 
casetab charchar 
casetab charvcha 
casetab charbit 
casetab charabit 
casetab vchapic 
casetab vchafixb 
casetab vchafltb 
casetab vchafixd 
casetab vchafltd 
casetab vchachar 
casetab venevene 
casetab vchab 
casetab vchaabit 


a ee et tm RR a RN a te NN tn ts tn te et a th Nt 
Yall quell gel gel gel gel goed gel eee aaa cel eel al eel eel eel cee gee 
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casetab tele 

casetab bitfixb 
casetab bitfito 
casetab bitfixd 
casetab bitfltd 
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casetab bitchar 
casetab 3 2 ha 
casetab b A 

casetab bi tab t 
casetab abitpic 
casetab abi 
casetab abi 
casetab abi 
casetab $bi 
casetab abi 
casetab abi 
casetab abi 
casetab abit 
brw error 


e ,aaqace 


tf 
tf 
tf 
tf 
tc 
tv 
tb 
a 


he A Bae. eae! 


i 
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0000 

50 00000000°8F 00 

51 04 aC 00 
00000000°8F 04 Al 01 
2 12 

51 D 00 

10 Al Q0000571°EF 9E 
51 OC Al ~ 00 

50 QOO00SIF'GF DE 

50 661 =O 

E8 12 

61 D4 

00000000"8F dD 

7E 04 

Soeeeaee"e . 
QOO00000'GF 05 FB 
50 00000000° 8F 0? 
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++ 


bp ee 
50000909 690909 09 090909 SI NINN NINN NIOOAAOAOAO 


OOONANE WN O OOONAUE Wi OOOO 


WWAIWRNONUNY) 2 2 


— PWD OW MOU" DR LOO ST TTT TTT 


bneq : if neq, resignal 
movl {p ri 3; addr the frame 
10$: movab 3 $, stk. _pe(rt) 3; force pc to be a return statement 
mov l stk_l_fp(ri),ri 3; get the next frame 
moval oP iScnvrt_hnd,r0 ; get address 
cmpl stk. _cnd_had(r{),r0 ; see if it’s our establisher 
bneq 10$ : if not, keep looking 


CQOCCOCOOCOGOGCooooooOCoOooooOoQoOoQOOOOOOOOOOOOoOO 


802 30$: ret 
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pli$cnvrt_hnd 


this handler is used by pt roconvert routines that may generate 
reserves Spqrend exceptions; that is, all the char and vchar 
to arithmetic or bit conversions. it handles only reserved 
operand, by signalling a pif error witfi a conversion error 
subcode. all other conditions are resignalled. 


input: 
condition argument List 


output: 
if roprand, error is signalled 
else condition is resignalled 


-sbttl pliS$cnvrt_hnd conversion condition handler 
sentry pli$cnvrt_hnd,0 


mov l #ss$_resignal,r0 3; assume resignal 
mov | chf$l_sigarglst(ap),r1 ; address arg list 
cmpl ghiSt_signane(ri #ss$_roprand 3 check for roprand 


clrl stk lL cnd_hnd(r1) 


else, take away this cond. hndlr 
pusht op  T$_caverr 
=(s 


set conversion error subcode 


clr 

pyent #pli$_error 3; set error condition code 
clr r 

calts #3,g*Lib$signal 3 and signal pli error 


mov #ss$_continue,r0 


| mani 


2? 51 
4 7 
55 4 

B 

.£ 

 Y 

si 

A 

54 Sos F 

5554 

Y 

a: 

00 

03 60 55 

6— 01 

55 

8E 60 54 55 
01 

aed 
00000000'GF 01 
FE99 

00 

1F O51 

27 

72 

ms @ 

50 

31 

15 

11F6 

54 

F5 

0000000 ° 8F 
00000000°GF 01 
21 

ee 
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check for overflow condition 
on fixb to string conversion 


get prec 
assume less than 7 bits 
en always ok 


chec 
than 15 bits 
always ok 


if gtr then chec 
than 31 bits 


eql then always ok 
if less then illegal 
get size of sign areai 
assume positive number 
if clear then positive 


set aegit ive 

point to bit past the sign bit 
check sign 

if neq then overflow 

else done 

signal error 

no value 

signal error 

exit 

signal error condition 


- check for bit to arithmetic overflow 


continue to verify bits 


less than 31 bits? 
then always ok 


point at last 31 bits, and save 

Save src base 

more bits to verify? 

if eql then ng and string is checked 
get the next 32 bits of the string 
all 0's? 

if eql then continue check 

signal error 


restore desc with adjusted offset 
set max size 


sf $ -sbttl input checking subroutines 
4 ; chk_fixb string - check fixed binary for overflow 
sf § chk_fixb string: 

25 10 movzbl ri,r5 

57 11 movl #7,74 

278 \¢ cmpol r4,r5 

7B O81 beql 20g 

7D 14 bgtr 0$ 

7F 15 movl #15,°4 

Hf 1 cmpl r4or 

5 1 beql  20$ 

587 18 bgtr 10$ 

589 1 mov l #31,°4 

58C 0 cmol r4,r5 

asi R52 peat gn 

ss 

593 8 : 10$: subl r5,r4 

238 4 ushl @# 

59 5 be r5,(r0),15$ 

59C § mnegl #1,(sp) 

59F 827 15$: inc r5 

5A1 828 cmpv r5,r4,(r0),(sp)+ 
BAG 869 bneq 25$ 

5A 0 30s: rsb 

nf th 5$: pyent #ss$_intovf 

r r 
2B} e38 calls #1,g*lib$signal 
re 

589 835 30S: brw error 
see Ba? 
Be 3 : chk_bit_arith 
5BC 40 -enabl lsb 

a re chk_bit_arith: 108 

SBE 28 chk_abit_arith: 

5BE 44 10$: capl r1,#31 

acl 45 bleq § 

5¢ 46 subl #31,r1 

56 4 addl\3—s r 1, r5,-(sp) 

SCA rt pushtl r0 

5C€C 49 15$: tstl ri 

5C 50 beql 20$ 

5D 51 bsbw get_next_32bits 
5D 25 tstl r4 

5D 5 beql 15$ 

5D 54 pushl #ss$_intovf 

200 36 calls #1,g"LibSsignal 

re 

E 20$: opr #*m<r0,r5> 

35? 38 oor 31 rl 

SEA 30$: rsb 

5€B 60 
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6) : -dsabl sb 
e§ ; src_fltb_prec - calc floating source context 
$9 src_fltb prec: 
§ Bispsw #os\$n fy i enable underflow 
6 bbcc #7,71,T0$ 3 test for grand and clear it 
rt: mov l #2, 3 set grand context 
$3 } rsb 
71 10$:  cmpl F1,#24 ; float? 
t bgtr 208 ; if not, br 
7 clrl r4 3 set F float context 
a rsb 
id: 20$: cmpl £1,453 ; double? 
7 bgtr 30 ; if not, br 
4 movl #1,74 ; set double context 
43 rsb 
881 $0$: mov l #3,°4 3; must be huge 
Bit yam 
See : dest_fltb_prec - calc floating destination context 
886 dest_fltb_prec: 
8 bispsw éos\$e fu 3; enable underflow 
888 bbcc #7,°3,T0$ 3 test for grand 
889 movl #2,r7 3 set grand context 
4 , rsb 
536 10s: cmpl r3,#24 : float? 
89 bgtr 20$ ; if not, br 
Soe c{rl r7 > set F float context 
4 rsb 
597 20S: cmpl 3,453 ; double? 
98 bgtr 308 : if not, br 
344 movl #1,°7 : set double context 
ope rsb 
Ong Sos: mov l #3,°7 3; must be huge 
$04 ; rsb 
$05 ; src_fltd_prec - calc floating decimal source context 
9 ; src_fltd_prec: 
9 3 Bispsw sosl$n fu 3 enable underflow 
9 bbcc #7,71,T0$ ; test for grand 
910 movl #2,74 3; set grand context 
gi) rsb 
318 10$:  cmpl 1,47 ; float? 
914 bgtr 20$ : if not, br 
915 c{rl r4 : set F float context 
318 rsb 
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input checking subroutines -SEP-1984 PLIRTL.S REIP PLICONVRT.MAR; 1 (1) 
41 20$: cm #15 : double? 
} oH $15 get soe" : if not, br 
3 64 dott #1, t set double context 
A a 
0 64A 9 ‘ $0s: movl #374 3; must be huge 
Ree 988 oo 
ete 2 § 3 dest_fltd_prec - calc floating decimal source context 
64—E 9 3 dest_fltd_prec: 
8 O05 3 bispsw fire fy 3 enable underflow 
4 o2 4 ? cf ,10$ : seat for grand P 
mov 2.r : set grand ccntex 
BS Oees 9 2 rsb . 
65A 933; 
D1 065A 934 10s: cmpl 3,47 : float? 
14 0650 935 botr 208 : if not, br 
D4 O65F 936 cl{rl r7 3; set F float context 
05 0661 937 rsb 
066 938 ; 
Di 066 939 208: cmpl 3,415 ; double? 
14 0665 940 bgtr 308 : if not, br 
+4 667 941 movl #i,r7 3 set double context 
0 66A 3eg rsb 
0668 943; 
D0 0668 944 40S: movl #3,r7 3; must be huge 
05 066€ 945 rsb 
066F 946 
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O6f 349 -sbttl picpic - picture to picture conversion 
ed 82 ; picpic = picture to picture conversion 
: ; $3¢ 3; functional description: 
? : $84 3; This routine converts a picture value to a picture value. 
66F 956 : inputs: 
66F 939 3 
66F o28 3 rO = address of the source 
66F 82 3 rl = size or precision of source 
66F 60 ; r2 = address of the destination 
66F 961 ; r3 = size or the precision of the destination 
066F 306 ; 
O66F 963 ; outputs: 
O66F 964 ; 
vee 965 ; The destination is filled in 
66F 966; -- 
C010 O66F 967 -entry pliSpicpic_r6,*m<iv,dv,r4> 
0671 968 picpic: 
5E 10 C2 0671 969 subl #16,sp ; alloc packed temp 
5E D 0674 970 pushl = sp ; addr of target temp 
7E 61 C be58 971 movzwl pic$w_pq(ri),-(sp) :; prec & scale of target 
50 0D 0679 or¢ pushl fr ; addr of source 
7E O04 Al 9A 0678 97 movzbl pic$b_byte_size(r1),-(sp); prec & scale of src 
51 OD O67F 974 pushl ri 3; addr of pic node 
54 51 DO 0681 975 mov l ri,r4 3 save pic node addr 
00000000'GF 05 FB 0684 a78 calls #5,g*pli$cvt_fr_pic 3 conv from pic to fix dec 
2 DD st14 97 pushl fr ; final target addr 
04 A 9A 068D 978 movzbl picSb_byte_size(r3),-(sp); target prec & scale 
08 AE 9F 0691 979 pushab sp) 3; addr of fix dec src 
64 3C 0694 980 movzwl picS$w_pq(r4),-(sp) 3 src prec & scale 
53 DD 0697 981 pushl fr ; pic node addr ‘ 
0S FB 0699 oa6 calls #5,g*pli$cvt_to_pic 3; curt fix dec temp to pic 
04 QO6A0 98 ret 
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ny g 5 Le -sbttl picfixb - picture to fixed binary conversion 
yi 3 ? ; picfixb - picture to fixed binary conversion 
eat 3 : functional description: 
oA 883 ; This routine converts a picture vaiue to a fixed binary value. 
6A1 398 : inputs: 
6A1 994; 
6A1 995; r0 = address of the source 
Al 44) ; ri = size or precision of source 
Al 997; r2 = address of the destination 
6A1 443 3 r5 = size or the precision of the destination 
6A1 999; 
6A1 1300 ; outputs: 
6A1 8 13 
i” 1306 3 The destination is filled in 
C030 Q6A1 1004 sentry pliS$picfixb_r6,“m<iv,dv.r4,r5> 
BoA 1992 picfixb: 
5E 10 C2 Q6A 19 $ subl #16,sp ; alloc packed temp 
5E DD O06A6 100 pushl iH ; addr of target temp 
1F DD Q6A8 1008 pushl : 1 ; 1 precision, 0 scale 
50 oD ~~ 1009 pushl c addr 
7E 04 Al QA Q6AC 1010 movzbl picsb_ byte_size(r1) (sph; ore prec & scale 
51 DD Q6B80 1011 pushl : ic node 
00000000'GF 05 FB 0682 1016 calls 45,9" pli$cvt_fr_pic ; curt "tren pic to fix dec 
7 3 0 pear 101 mov | rd ; reset src to fix dec temp 
51 1F DO O6BC 1014 movl so # {‘ ri : reset src size 
092C 0 O6BF 1015 bsbw curt. fixd_tixb 3; go cvrt to fix bin 
04 06C2 1016 ret 
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; -sbttl picfltb - picture to floating binary conversion 
picfltb - picture to floating binary conversion 

functional description: 
This routine converts a picture value to a floating binary value. 


oc 
C$ 1019; 
RE 
C3 1022 : 
6c3 1 : 3 
6C3 1024 ; 
6C3 1025 ; 
ee } § 3 inputs: 
ge 1 8 3 r0 = address of the source 
6cs 1 3 rl = size or precision of source 
6cs 1 ? 3 r2 = address of the destination 
of ! 3 r5 = size or the precision of the destination 
6cs 1 4 3; outputs: 
6C3 1034; 
ber 13 33 The destination is filled in 
COFO 06C3 10 5 sentry pliSpicfltb_r6,“m<iv,dv.r4,r5,r6,r7> 
Bees 1038 picfltb: | 
FF44 30 O06C 18 9 bsbw dest_fltb eres 3; get dest context 
01 10 06C8 1040 bsbb cvrt_pic_flt 
04 OQ6CA 1041 ret 
6(B 1966 cyvrt_pic_flt: 
SE 10 C2 O6CB 104 subl #16,sp : alloc packed temp 
5E D Boe ee pushl__ sp : addr of target temp 
54 61 C 0600 1045 movzwl pic$w_pq(r1),r4 3 save src prec & scale 
54 DD 06D ies pushl Fr4 3; use for target prec & scale 
50 DD 0605 104 pushl r0 - addr of src 
7E 04 Al 9A O06D7 1048 movzbl pic$b_byte_size(r1),-(sp); sre prec 
51 DD O06DB 1049 push r 3; pic node 
00000000'GF 05 FB O6DD 1050 calls #5,g*pli$cvt_fr_pic 3 
50 5E 00 06E4 193) movl sp.r0 z reset src to fix dec temp 
51 54 B? 6E7 1 26 mov | r4,ri 3 reset src prec & scale 
O9A9 O6EA 105 bsbw curt_fixd_flt 3 go conv to float bin 
5E 10 CO OQ6ED 1054 addl #16,sp 3: clean stack 
05 O6FO 1055 rsb 


conv to fixed dec 
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-sbttl picfixd - picture to fixed decimal conversion 


ww 
—~ 


++ 
picfixd = picture to fixed decimal conversion 


orl 1 
rs $ 
SFY 1080 
4 ! é ; functional description: 
fi ! e ; This routine converts a picture value to a fixed decimal value. 
oF! 63 $ inputs: 
6F1 1 89 : r0 = address of the source 
ort 1 8 ; ri = size or precision of source 
a. 3 r2 = address of the destination 
FI : 4 ; r5 = size or the precision of the destination 
oF! t ; outputs: 
oF! t : The destination is filled in 
C010 ort 1977 * tixa sentry pliSpicfixd_ré6,“m<iv,dv,r4> 
cfixd: 
26 DD er 1 4 - pushl " ; target addr 
5 DD O6F5 107 pushl fr 3; target size 
50 OD F7 1080 pushl r0 > src addr 
7E 04 ai A 13a) a picSb_byte_size(rl),-(sp); src prec & scale 
us r 3 pic node 
00000000'GF 05 FB O6FF 1988 Cells #5,.g*pli$cvt_fr_pic ; Convert pic to fix dec 
04 0706 1084 ret 
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— -sbttl picfltd - picture to float decimal conversion 
; picfltd = picture to float decimal conversion 

; functional description: 

; This routine converts a picture value to a float decimal value. 
: inputs: 

; address of the source 

: size or precision of source 


address of the destination 
size or the precision of the destination 


= 
—_ 
nun 


; outputs: 
The destination is filled in 
sentry pliSpicfltd_r6,“m<iv,dv.r4,r5,r6,r7> 
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DOONAN WN 9 ODNAMNE WH OOOO 


icfltd: 
FF42 30 , bsbw dest_fltd_prec ; get float context 
BD 10 bsbb cvrt_pic_flt : convert value 
04 ret 3; done 
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-sbttl picchar - picture to character conversion 


=b07 pitcher = pictur 


picchar - picture to character conversion 
functional description: 
This routine converts a picture value to a character string. 
inputs: 
= address of the source 
rl = size or precision of 1 ceyree 
= address of the destinat 
= size or the precision of the destination 
outputs: 
The destination is filled in 
-entry pli$picchar_r6,“m<iv,dv,r4,r5> 
picchar: 


mevzbl ic$b_byte_size(r1),ri et pic str size 
moves i. (r0) #32, r3,(r2) 3 i Tone to char str 
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Ssbttl picvcha - picture to character varying conversion 
picvcha = picture to character varying conversion 
functional description: 
This routine converts a picture value to a character varying string. 
inputs: 


r0 = address of the source 

rl = size or precision of source 

r2 = address of the destination 

r5 = size or the precision of the destination 


outputs: 
The destination is filled in 


sentry pliS$picvcha_r6,“m<iv,dv.r4,r5> 
picvcha: 
movzbl pic$b_byte_size(r1),r1 
movw ri,(r2) 
cmpw ri,r3 
blequ 1 
movw r3,(r2) 
10$: tstw (r2)+ 
moveS ri1,(r0),#32,r3,(r2) 
ret 


get pic str size 

put in dest str size 
see if it fits 

if so, br 

else, use smaller size 
point to char str 

do the move 
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-sbttl picbit = picture to bit string conversion 


++ 
picbit = picture to bit string conversion 


PU Rgonent 


functional description: 
This routine converts a picture value to a bit string. 
inputs: 

r0 = address of the source 

r size or precision of source 

r address of the destination 
cr size or the precision of the destination 
outputs: 

The destination is filled in 

sentry pliSpicbit_r6,*m<iv,dv,r4,r5> 


subl #16,sp ; alloc peshes temp 
movzwl pic$w_paq(r1),-(sp) 3 save f e src prec,scale 


3; arg.list 
4(sp) 3 addr of fix dec target temp 
4(sp) ; use same prec,scale for target temp 
r0 ; src addr 
pic$b_byte_size(r1),-(sp); src prec 


4 
#>.9°pliScvt_trpic 
e 


oe-60 ; set src to fix dec temp 
fixdbit ; go conv to bit 
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ype conversi 1 
to bit aligned convers 


r0 = address of the source 

rl = size or precision of source 

= address of the destination 

= size or the precision of the destination 


The destination is filled in 
pliS$picabit_r6,*m<iv,dv,r4,r5,r6> 


#16,s 
picsu pa(rt),-(sp) 
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#3.9°pliScvt.frpic 
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apt ‘ 
clr_abit_trailer 
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* -Sbttl picabit - picture to bit aligned conversion 
picabit - picture to bit aligned conversion 

functional description: 

This routine converts a picture value to a bit aligned string. 


AX/VMS Macro V04-00 
PLIRTL.SRCIJPLICONVRT.MAR; 1 


e src prec,scale 


3; addr o 
3 use same prec,scale for target temp 


r0 : 
pic$b_byte_size(r1),-(sp); 


fix dec target temp 


conv to fix dec 
get back src prec,scale 
set src to fix dec temp 
clear abit eet byte 
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-sbttl fltbpic - floating to picture conversion 
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fltbpic - floating to picture conversion 
functional description: 
This routine converts a floating binary value to a picture value. 
inputs: 
r0 = address of the source 
re : size or precision of source 
s 


r address of the destination 
r size or the precision of the destination 
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outputs: 
The destination is filled in 
C1FO Lteet entry pli$fltbpic_r6,*m<iv,dv.r4,r5,r6,r7,r8> 
Cc: 
FE61 30 6 . bsbw src_fltb_prec ; get src context 
01 10 bsbb cvrt_flt_pic 
04 ret 
8 cyrt_flt_pic: 
= 6UShCUG subl #16,sp : alloc packed temp 
26 DD 0 pushl r2 ; make frame for pic cvrt before regs go awa 
7E O4GA 9A 0 movzbl picSb_byte_size(r3),-(sp); frame target size 
52 O08 A 9E movab (sp),r 3; reset dest to temp 
5 D pushl 3 push it as pic cvrt src 
7E 6 C 9C movzwl pic$w_pq(r3),-(sp) : push target p,q as src p.q 
53 D O79F pushl fr 3; pic node addr 
53 $3 C O7A1 movzwl pic$w pete?) ars 3 reset dest size as pic p,q 
019 0 O7A4 bsbw gyre Flt_fixd : convert flt bin src to fix dec 
00000000'GF 05 FB OQ7A7 calls #5,g*pliS$cvt_to_pic ; frame all set, cvrt dec to pic 
nm lUlUwehUC addl #1é,sp 3; clean stack 


Mm 4 


70$: cvtgb (r0),(r2) 

80S: cvtgw (r0),(r2) 

90$: cvtgl (r0),(r2) 

100$: evthb (r0),(r2) 

110$: cvthw (r0),(r2) 
rsb 
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A } t ; esbttl fltbfixb - floating to fixed binary conversion 
A ' 73 ; fltbfixb - floating to fixed binary conversion 
£8 ? : functional description: 
A ! 23 3 This routine converts a floating binary value to a fixed binary value. 
A ! 1 : inputs: 
7B2 1 4 : r0 = address of the source 
7B2 1284; ri = size or precision of source 
7B2 1285 ; r§ = address of the destination 
ee ! § ; r5 = size or the precision of the destination 
7B2 1288 : outputs: 
7B2 1289 ; 
A ! oY $ The destination is filled in 
C010 07B2 1 3 ; sentry pliSfltbfixb_r6,*m<iv,dv,r4> 
0784 1293 fltbfixb: 
FE34 «=. 330 b7 Bs 1294 bsbw src_fltb_prec 3; get src context 
01 19 ye? } 32 bsbb curt_flt_fixb 3 convert floating to fixed 
re : 
7BA 1 39 curt_flt_fixb: 
53 3. 02 = 93 Aa 7BA 1298 extzv #3,#2,r3,r3 ; get dest size 
51 F8 8F 78 O7BF 1299 ashl —s- #8, 8, rf : get dest scale 
51 51 98 O7C4 13500 cvtbl ri,ri 3 sign extend dest scale 
5c 3612 «07C7 «1301 bneq 1208 : if neq, scale “= zero 
54 04 84 gree 1 §¢ 5$: mulb 44,74 3; get source size times 4 
$354 «80 (O7CC «130 eddb race : Get cease index 
O7CF 1304 case type=b.r3,< 108,208, 308,308, 408,508, 608,608, 708,808,908, 908, 1008, 1108 
62 60 6AFD bree 1305 cvthl (rd), ¢r2) 
05 O7F3 1 38 rsb 
62 60 48 O7F4 1307 10$: cvtfb (r0),(r2) 
05 O7F7 1308 rsb 
62 60 49 O7F8 1309 20S: cvtfw (r0),(r2) 
0S O7FB 1310 rsb 
62 60 4A O7FC 1311 30S: cvtfl (r0),(r2) 
05 O7FF 1 \¢ rsb 
62 60 68 0 1313 40$: cvtdb (r0),(r2) 
05 03 1314 rsb 
62 60 69 4 1315 50$: cvtdw (r0),(r2) 
05 7 1 1g rsb 
62 60 6A 8 1317 60$: cvtdl (r0),(r2) 
05 1 18 
131 
05 1320 
1 
1324 
: 5 
18 
1359 
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boy fltbtixd = floating to his Coat eee Toke STisesco EPCInTeeespLiconvor.mars1 2% 34, 1-0 
7E D4 1 120$: clrl temp for the Longword result 
3 1 case types, ,r4,<130$,140$, 1508> . s 
re rf ; ! sire (SP) ; convert to huge temp 
m+ : 
7 dD 1334 movl r1,-(sp) : set ower of 2 in the exponent 
6 90004801 BF _ PO 1335 addl2  #*x4004, ( a ta tke content 1 faakiee ot 
8E 10AE 6€ 00 £60 74FD F 4 § emodh rhe #0, aoe 16(sp), (sp)4; dion to dest scale and convert to integ 
46 11 | brb 160$ 3 join common code 
43 7¢ 49 1 8 130$: clraq =48p) : 
SS ww oe Sf Fe 48 1 insv r1,#7,8#25, (sp) : set ghe epever of 2 9 the exponent 
6E 00004080 BF 50 1340 addl2- #*x4080, (sp) constant d_floating part 
7 0 6 : 1341 cvtfd (r0),- (3p) a2 to double temp 
8E O8 AE GE E 4 A 1 4g emodd +2R2°-f »(sp),8(sp), ieathh “3d ust to dest scale” and convert to integ 
1 #11 61 134 brb 160$ 3 join common code 
ae o3 1344 140$: clrq =isp) : 
& WW oF fF te 65 1345 insv 1,47 ,#25, (sp) ; set fhe a of 2 " the exponent 
6E 00004080 8F c0 A 1 46 addl2  #*x4080, (sp) constant d_floating part 
8E O08 AE 6E€ 00 60 4 4 1 134 emodd (r0),#0,(sp),8(sp), (sp)+; ; Aafust to dest scale and convert to intege 
1A 78 #1 Ph: , 160$ nN common code 
7E 7C O87A 1349 150$ cirq -(sp) : endl to huge temp 
7E 04 pare 1350 clrl -(sp) 3 
7E 51 £00 O87E 1351 movl Fri400 : set the power of 2 tn the exponent 
6— 00004001 8F CO tt 1 2 addl2_ #*x400 as 3; add in the constant h_floating part 
7E 60 56FD 0888 135 cvtgh (r0),-¢ ; convert to huge soup 
8E 10AE 6€ 00 BE 74FD O88C 1354 emodh (sp)+ Hor ts ),16(sp),(s $+:adjust to dest scale and convert to integ 
0894 1355 160$: case typesb r$,<196$,180$.17 $>; convert to target context 
62 BE dO 089E 1 36 170$: movil crs ; 
05 O8A1 135 rsb 
62 8E F7 Bane 1 28 180$: cvtlw espe : 
05 O8A5 135 rsb 
62 8E F6 O8A6 1360 190$: cvtlb (sp)+,(r2) 3 
05 O8A9 1361 rsb 
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rr } $3 - sbttl fltbfltb - floating to floating binary conversion 
AA és ; fltbfltb - floating to floating binary conversion 
BAA i ; functional description: 
~ } $3 ; This routine converts a floating binary value to a floating binary value. 
0 AA 4 : inputs: 
OBAA 1 8 : r0 = address of the source 
8 AA 1374 ; rl = size or precision of 1 seyree 
AA 1375; r2 = address of the destinat 
ry ! 6 : r5 = size or the precision of the destination 
OBAA A: ; outputs: 
OBR : + : The destination is filled in 
C090 OBAA 8¢ eitbeuee et pliSfltbfltb_r6,*m<iv,dv.r4,r7> 
FD3C 3=—s_-« 330 IN 3p src_fltb_prec : calc floating context for source 
FDSA 30 OBAF 1383 bsbw dest_fltb prec : calc destination context 
01 i peee : 38 bsbb curt_flt_f 
pa82 1386 curt_flt_flt 
2 9% ge Obes ! +4 “> #4, aH 3; calculate index for case 
a r 
088B 1391 case type=b,r4,<10$,20$, 30$,40$,50$,60$, 70$,80$,90$,100$, 
0888 1 3¢ 0S, 568130 140$,156$> 
62 60 rore Ba00 } 7 oot (r0),(r2) 
rs 
62 60 56 tt 1395 10$: nove (r0),(r2) 
rs 
62 60 76 OBe 1397 208: eucet (r0),(r2) 
rs 
62 60 3560 OBER 1738 308: evtaf (r0),(r2) 
rs 
62 60 rere Bees 193) 40$ event (r0),(r2) 
rs 
62 60 56 ers 1408 50$: eve td (r0),(r2) 
rs 
62 60 73 arg i 60$: wove (r0),(r2) 
rs 
7E 60 S6FD ere 14 5 70$: cvtgh FO) -~f98} 
62 «BE Free i ? 1088 cut d (sp)+,(r2) 
62 60 Free , 3 at 80$: evened (r0),(r2) 
rs 
62 60 99F $0e 116 90$: evttg (r0), (r2) 
rs 
7E 60 32 arp 90F 1414 100$: cvtdh fr) (88) 
62 213 1312 cvthg (sp)+,(r2) 
62 60 sop Bie 1417 1108: move (r0),(r2) 
rs 
62 60 76FD 091D 1219 120$: cvthg (r0),(r2) 
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05 
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sb 
1308: cvtth (r0),¢r2) 
rsb 


140$: ovee (r0), (r2) 
rs 

150$: cvtgh (r0),(r2) 
rsb 
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4 | 1é ; ; -sbitl fltbfixd - floating to fixed decimal conversion 
3 14 ; ; fltbfixd = floating to fixed decimal conversion 
? 14 : ; functional description: 
4 ! 1? : ; This routine converts a floating binary value to a fixed decimal value. 
3 14 : : inputs: 
931 1438 ; r0 = address of the source 
931 1439 ; rl = size or precision of source 
931 1440; r2 = address of the destination 
88 ! 194] : r3 = size or the precision of the destination 
BH Eh { ovens 
i 1445 : The destination is filled in 
C1FO 88 1 144? ‘oad Pei pli$fltbfixd_r6,“m<iv,dv,r4,r5,r6,r7,r8> 
xd: 
FCBS 0 0333 1449 bsbw src_fltb_prec get src context 
0001 ay 238 1939 eseu cvrt_flt_fixd 
re 
$93A 1026 curt_flt_fixd: 
5E 00000070 8F Ce O93A 145 subl #112,sp :; alloc local storage 
54 D5 0941 1454 tstl r4 ; see if src is single floating 
08 12 0943 1455 ones 10$ : if not F, br 
68 AE 56 0945 1456 cvtfd (r0),104(sp) : cvrt float to double 
50 8 AE DE 0949 1457 moval 197 ‘sp 260 3 reset source 
51 4 AE 9E 094D 1458 10$: movab 52(sp),r1 3 setup math call frame 
EC Al 8 af 9E 0951 1459 movab 36 (sp) -20(r1) 3 string_addr 
FO Al 53 9A 0956 1460 movzbl r3,-16(r1) : sig_digits 
FZ Al 01 18 OF FO O95A 1461 nsv #1,424,81,-12(r1); 3 flags (truncate) 
EO Al 4 0960 1462 clrl = =38¢r 1 : clr rt_round (no right rounding) 
. ee D 09 146 movqg r2,-(sp) 3 save dest. regs 
I 1464 case type=b,r4,<20$,20$,40$> 
20 B89 09 1465 bicpsw #osl$m_iv 3; turn off iv 
00000000'GF 16 097 1406 sb 9 ots$$cvt_h_t_r8 
9 FER ge Brgoow Jeg 
r 
emeeeeadl «' 19 443 128? 208: s» gogtsssevt_d.tr8 
r 
20 +4 984 1274 40$ icpsw #psl$m_iv 
00000000" 6 0986 1906 sb ots$$cvt_g_t_r8 
0 «688 3 ; 1627 ispsw #psl$m_iv 
56 8E 7D 09 : 1475 508: mova ( g) ré : rest dest to r6,r7 
58 EC Al EQ Al C1 099 1978 addl3 =32(r1),-20(r1),r8 ; add offset to get start of digit str 
—E8 Al D5 0997 147 tstl -24(r1) ; test sign returned by cvt 
f 14 O99A 1678 bgtr 70$ 3; and put appropriate sign char 
19 Q99C 147 blss 60$ ; in front of digit Serine to make 
78 : +9 ani 1 9 pove ane! /,-(r8) : a proper leading separate string 
r 
78 4 79 mA 1 § 60$: povb #*a/-/,-(r8) 
r 
78 B 90 O9A8 1484 70$: movb #*a/+/,-(r8) 
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55 57 9A Q9AB 1485 80S: movzbl r7,r5 3; get prec of dest 
55 £4 Al 8} 9AE 14 § cmpl yt r5 3 Tee f gtr exponent 
11 5 Q9B2 14 bleq 3 tnote t at ashp with count > estin 
9B4 14 8 3; length wi tt not over? — on 11/780 j 
00000000 ' 8F bp 984 14 pushl epee _Soceve ; signal decimal overf 
0 C Q9BA 1490 clrq r 
00000000 ' GF 1 fe 9BC 149 calls #1,g*lib$signal 
0 11 O8C3 149 brb 106 
a a. ee , 9C5 1493 90S: ashl #-8,r7,r7 3; get scale 
57 hh: SCA 1494 subl r5,r 3; scale-prec 
57° €4 A ; 9CD 1495 addl2 =28(r1),r7 : (scale-prec)+exponent 
of 43 1438 bgeq 93$ :; if positive scale factor 
FFFFFFE1 8F Di O9D3 14 cmpl r?,#-31 3; shift factor >max size of packed? 
0D 18 O9DA 1498 bgeq 978 ; 0, 
57 IF 8E& OQO9DC 149 mnegb #31,r7 3; use max 
98 11 O9DF 1300 brb 97$ 
1F D1 O9E€1 1501 93$: cmpl r7,#31 3; shift factor >max size of packed? 
03 15 O09E4 1308 bleq 97$ : if so, 
57 1F 90 Q9E6 150 movb #31,r7 : use max 
55 68 55 09 O9E9 1504 97$: cvtsp 5,(r8),r5,(sp) 3; convert lead sep to ached temp 
ao FB FS & Fs BW 6 844 1505 as r7,c5,(sp),#0,r5,(r6) ; adjust result to sca 
5E 00000070 8F CO O9F5 1506 1008: add #112,sp : clean stack 
05 OQ9FC 1507 rsb sreturn 
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ns -sbttl fltbfltd - float binary to float decimal conversion 
fltbfltd - float binary to float decimal conversion 
functional description: 
This routine converts a float binary value to a float decimal value. 
inputs: 
= address of the source 
rl = size or precision of so ree 

= address of the destinat 

= size or the precision of the destination 
outputs: 

The destination is filled in 


sentry pliS$fltbfltd_r6,“m<iv,dv,r4,r7> 
flebfled: » 


FBE9 0 src_fltb_prec ; get src context 
FC49 0 bsbw dest_ fled apres ; get dest context 
FEAD 0 bsbw cvrt_ ; continue in common 
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fltb nie floating to character convers 6=-SEP- PLIRTL.SRCJPLICONVRT.MAR; 1 (1) 
ms ! 5 a -sbttl fltbchar - floating to character conversion 
" ! 5 : fltbchar - floating to character conversion 
A 3 33 $ functional description: 
“ | ! a} : This routine converts a floating binary value to a character string. 
A 3 “§ : inputs: 
AO9 1545: r0 = address of the source 
A 2 1 ¢$ 3 rl = size or precision of source 
A 1547 ; r2 = address of the destination 
“ 2 : rt 3 r5 = size or the precision of the destination 
AOd 1550 : outputs: 
AOQ 1551; 
- , 1336 : r0 = size of actual data string 
Ags 1334 : The destination is filled in 
CFFO ne 1328 nae . -entry pli$fltbchar_r6,*m<iv,dv.r4,r5,r6,r7,r8,°9,r10,r11> 
char: 
FBDD 30 OA0B 1338 bsbw src_fltb_prec 3; get src context 
51 00 BF C4 Avg 155 mull2 #100,r1 3 conv to decimal digit prec 
51 00000148 8F CO OA15 1560 addl #331,r1 3: this will assure the ceil 
51 0000014C e C6 part 1561 divl #332,r1 
22 } f ~ 1206 cept ri. ; can't be greater than max dec prec 
€ 
51 %3 DO OA 3 1208 ae #34,r1 3 set max 
01 be “ ; ' 9 6$: — cvrt_flt_char 3 convert number 
re 
A2E 1369 cyrt_flt_char: 
5E 00000084 ef c A 1568 subl2 #132.,sp : alloc local storage 
eB EV 
n : br no 
OnE 60 56 OA39 1571 evttd (FO) ,=128(sp) S conv to B 
50 80 AE DE OA3D 1 2 moval -128(sp),r0 : reset src addr 
54 06 nas ! ie incl r4 : reset context to D 
75 1 h 1 ; save src prec 
51 50 ie DE Aas 13% a oevel 80(s ),r1 ; setup math call frame (size=40 bytes) 
EC ato 3 oct BMS Hare text eheceateh : Bebe 
= r 4 
Al ay A ° 1 5 etre =H5¢r}} ; caller tlegs (default round) 
DC Al 4 QA54 1580 clrl -36(r1) 3 clr rt_roun 
32 ee 3 " r ! 1 nova r ds A 3 save r2,r3.r 
m r4or 
A p 13 Q caee type=b.r4,<21$,22$,23$> 
20 52 A67 1584 icpsw #osl$m iv 3; turn off iv 
00000000 ' GF A69 1585 iss | ots$Scvt_h_t_r8 
aH RH Ie pltow fylle is 
r 
00008000"st 19 Na } 8 21$: H ggtssScvt_d_t_ré 
00000000'GF 1 A7B 1 22$ sb *ots$$cvt_d_t_r8 
OA 1 ABT 1 3 rb 95$ 
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SOO) fl bcher - float ing to charac er convers 6-SEF-1984 4: i: a PLIRTL. REOP PLICONVRT .MAR; 1 ~~ (1) 
20 89 OA ; 1296 35: ’ 
cpsw sl 
oooo0000'sr 8 OARS | }e6? Ps Rorssecve _9.t.r8 
0 “ ; ! ispsw 
58 : D A 1 3 25s: movl : oder Ko temp for char str 
E8 Ai 05 0A90 1 ; tstl - $8778) : 
we AIS 159 bgeq 3 3 iy if Slus or zero 
88 5 : 4 16 9 poyb ed nla ; else put - sign in chr str 
88 90 QOAIA 1 30$ movb # /,¢ ; put in blank for pos or 0 
52 EC Al _€0 Al 1 ni 19 : ibs addl\3—s =3 (45 SO tet) ore 3 Bdd offset ip ai str addr to get ist digit 
gs 2 AAS 1604 movb (r yeate : copy — $s 
See. AA6 1605 movb #*a/./,(r8)+ 3; put in 
56 FO AT OF C3 OAAD 16 6 subl3 #1, “jetrt), r6 ; get length “of ‘inte digits 
57 1 3 AA 198 mov r 3; copy call frame 
68 $5 g ABI 16 8 moves *tr2), (FB) 3: copy remaining Pee digi 
D AB 199 movl r3,r 3; point r8 past end of dest “string 
88 45 8F 9 ABB 1610 movb #*a/E/,(r8)+ 3; put in the ‘'E"’ 
dD ABC 1611 incl r 3 Res correct By digit size 
EB A D AB 1616 tstl -24(r7) ; test sign for zero 
03;.—=s AC1 161 beql : if 0, do ner " deat exponent 
E4 A? OD ACS 1614 decl “28 3 sasuke exponent for dec pt. 
80 AE 5B E4 A? F9 QAC6 1615 45$ cvtlp Brn) r11,-128(sp) 3 cvt exp to packed 
68 5B B80 AE 5B 08 OAC 1616 cvt 1,-128(sp5, rit, (r rar: S Set packed to leading s 
29 22 C AD2 161 add i r6 : get length of fractentra’ chars 
6 B § AD 1913 addl rii,ré : add in exp size 
69 SA 20 6€ 28 C QOAD8 161 mOvc 76, (sp) .#32,r10, (r9) 3 copy temp char str to dest 
50 6 DO OADE 1620 mov | r6,r ; return dest Length 
SE 00000084 &F co AE1 1621 addi2 #132,sp : clean stack 
05 OAE 1 ¢ rsb 
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rt } 5 1" -sbttl fltbvcha - floating to character varying conversion 
rt ! 5 ; fltbvcha = floating to character varying conversion 
A 1 
ney } ; This routine converts a floating binary value to a character varying string. 
AES $ ; inputs: 
AED 1635 ; r0 = address of the source 
nr}! 1 § 3 rl = size or precisten 4 seyrce 
AED 1 3 r2 = address of the destina 
wr ! 3 : r5 = size or the precision 3 the destination 
A5D 184 ; outputs: 
AES 164 ; The destination is filled in 
CFFO AES 1644 aan chalet” pli$fltbvcha_r6,*m<iv,dv.r4.r5,r6,r7,78,79,710,r11> 
Hi AEB 1946 pushaw ok i ; skip current Length 
0 td 196 sb fltb_prec 3; get src context 
51 00000064 BF (C4 wy 1 rh: mull rs) O,r1 3 conv to decimal digit prec 
81 QoobgIae BF Ce GARE 1680 addle #33)-ri 
D1 Os 1884 cmpl ri, #34 3; can't be gtr than max dec prec 
51 DO BOA 1658 move #34 er} ; 
og a5 BS OD 1654 6$: bsbw cyrt vite zohar ¢ convert to char 
8° 19 1655 movw r0,atsp)? 3 store length 
4 OBi3 1656 ret 3 return 
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floating to bit convers ~SEP-1984 
-sbttl floating to bit conversion 


ttebbts - floating to bit string conversion 
flitbabit - floating to bit aligned conversion 


functional description: 
This routine converts a floating binary value to a bit aligned string. 


WOOd NONE Wi OOo 


14 4 
14 «1 : 
14 4 5 
14 1 : 
14 1 3 
14 4 ; 
14 1 3 
12 1866 
1? 186 : inputs: 
14 4 ; r0 = address of the source 
14 1890 3 r$ = size or precision of source 
14 1671 ; " = address of the destination 
14 1 ie 3 r5 = size or the precision of the destination 
12 ! oe : r6é = bit offset to destination 
12 190? 3; outputs: 
3 e destination is ed in 
1¢ 187? The destination is filled i 
C070 14 1899 sentry pliS$fltbabit_r6,*m<iv,dv,r4,r5,r6> 
16 1680 fltbabit: 
0458 e 16 1681 bsbw clr_abit_trailer ; clear abit last byte 
02 1 19 16 § brb flit : 
C030 18 1 scenic sentry pli$fltbbit_r6,*m<iv,dv,r4,r5> 
FACB 30 OB1D 1685 bsbw src_fltb_prec 3; get src context 
7E D4 4 0 16 § clrl -(sp) 3 get temp space 
a ¢ 16 cmpl r1,#31 : see if grr max binary prec 
03 15 0825 1688 bleq 10§ : if lss 31, ok 
mov #3i.r ; else plug in max 
51 1F 00 i 19 i 108 l 1,°1 l lug i 
O0se 8F 6B A 1691 pushr #*m<r1,r2,r3,r6> 3; save destination 
52 10 AE DE 1926 moval 16(sp),r ; plug address of temp for dest 
5351 169 mov l river 3; plug precision 
pce 1694 bsbw curt_flt_fixb 3; convert source to fixb temp 
OO4E 8F BA 8 1695 popr #*m<?1,r2,r3,76> 3 restore destination 
50 _5E 0° OBSC 1696 movl sp.r ; plug address of temp for source 
03D2 88 F 1697 bsbw cvrt_fixb_bit 3; convert temp to bit 
04 42 1698 ret 
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-sbttl fixbpic - fixed binary to picture conversion 
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fixbpic - fixed binary to picture conversion 

functional description: 

This routine converts a fixed binary value to a picture value. 

inputs: 
r0 


r 
r 
r 


outputs: 
The destination is filled in 


sentry pliS$fixbpic_r6,*m<iv,dv.r4,r5> 
fixbpic: 

subl #16,sp : alloc packed temp 

r ; make frame for pic cvrt before regs go awa 
movzbl picSb_byte_size(r3),-(sp); frame target size 

(sp),r 3; reset dest to temp 

r2 3 push it as pic cvrt src 

movzwl pic$w_pq(r3),-(sp) ; push target p,q as src p,q 
1 pic node addr 

reset dest size as pic p.q 
conv fixb src to fix dec 
frame all set, cvrt dec to pic 


address of the source 

size or precision of source 

address of the destination 

size or the precision of the destination 


movzwl pic$w petrs) .c3 
bsbw curt_Fixb_fixd 
calls #5,g"pli$tvt_to_pic 
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is esbttl fixbfixb - fixed binary to fixed binary conversion 

fixbfixb - fixed binary to fixed binary conversion 

functional description: 


This routine converts fixed binary values to fixed binary values of a different 
; precision. 


inputs: 

r9 = address of the source 

rl = size or precision of source 

a = address of the destination 

r3 = size or the precision of the destination 
outputs: 

The destination is filled in 

sentry pliSfixbfixb_r6,“m<iv,dv,r4,r5> 


fixbfixb: 
+ curt_fixb_fixb 3; store the result 
re 3 


DPALAEAAAAAAAAA AAAI AISAASAAS Ff 
600 


01 10 


& 
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aaa eee eeeerTrrTwTy 


: subroutine to store a fixed binary value 


curt_fixb_fixb: store fixed binary result 
ashl 
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54 51 Ff88F 78 #-8,r1,074 3; get source scale 
5 2. 03 F extzv #3, 42,r1,r1 ; get valid contexts 
55 53 8 8F 8 7 ashl #-6,73,75 3; get dest scale 
53 02 03 EF extz #3,42,63,03 : get valid contexts 
5 54 $ 8 subb r4,r : calc dest scaie - source scale 
4A 1 : bneq 90$ 3; if neq different scales 
51 4 84 5 mulb #4,r1 3 
53 1 80 : addb ri,r3 . 
4 $$ case type=b,r3,<10$,20$, 308, 30$,40$,50$,60$,60$,70$,80$,5$,5$, 70$,808> 
62 60 00 AB 7 movl (r0),(r2) : 
05 : rsb 
62 60 90 AF 74 108: movb (r0),(r2) 3 
05 +41 7 rsb 
62 60 99 OBE 76 208: cvtbw (r0),(r2) 3 
93 BBG 7 rsb 
62 40 ats 78 30$: cvtbl (r0),(r2) 3 
B3A 7 rsb 
62 60 BBE 40$: cvtwb = (r 0), (r2) 3 
5 OBBE rsb 
62 60 03 BBF 50$: aeye (r0), (r2) 3 
: rs 
62 60 : j 60$: cvtwl (r0),(r2) : 
05 06 § rsb 
62 60 fF : 70$: cvtlb (r0),(r2) : 
0 BCA rsb 
62 60 fF BCB 80$: cvtlw (r0),(r2) : 
05 OBCE rsb 
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= urpose data 
tik + pyres inary to H 
8 90$: case 
: 
D 100$: movl 
9¢ brb 
O32 110$: gveul 
r 
re) 799 1908: cvtbl 
9 7 3 150$: cvtbl 
1 79 blss 
% ashl 
4 brb 
cE 131$ mnegl 
D1 cmp 
1F 4 blssu 
D4 05 clrl 
11 8 brb 
re 132$: ashl 
C 8 divl3 
809 135$: case 
dO 10 140$: movl 
05 11 rsb 
F7 \¢ 150$: cvtlw 
05 81 sb 
F6 814 160$: cvtlb 
05 815 rsb 
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type=b,r1,<120$,110$,100$> 
(¢ 2-r0 ; get source in longword 
(r0),r0 : 
130$ 3 
(r0),r0 3 
r5,r 3; sign extend dest yore - source scale 
131 : branch if shift right 
r5,r0,r1 3; convert to dest scale 
135$ : join common code 
ro.r ; make positive 
"3 #31 3; trying to shite away all the bits? 
133s ; if issu then 
ri 3; else result is zero 
135$ 3 go move to des 
3-4) rs : calc solsbatecst scale)) 
r0,r convert to dest scale 
tybe=b, 3, <160$,150$, 1408> 
of 3 put back to dest context 
ri,(r2) : 
r1,(r2) : 
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-Sbttl fixbfltb - fixed binary to floating binary conversion 
fixbfltb - fixed binary to floating binary conversion 
functional description: 
This routine converts fixed binary values to floating binary values of a different 


3 
l f : 
C168 1817 
ciB 1 $ 
ciB 1 $ 
ciB 1 3 
EIB 1852 : 
CiB 1 : ; 
C1B 1824 ; precision. 
CiB 1825; 
31 } § : inputs: 
ciB 1 3 ; rO = address of the source 
ciB 1 ; rl = size or precision of source 
0C1B 1830 ; ¢ = address of the destination 
$3 } 1; r5 = size or the precision of the destination 
ociB 1 : : outputs: 
CiB +1834; 
pele } $2 : The destination is filled in 
C090 OC1B 1837 ° entry pliSfixbfltb_r6,*m<iv,dv,r4,r7> 
OC1D 1 + fixbfltb: 
F9EC 30 OCID 1839 bsbw dest_fltb_prec : get destination floating context 
01 by be 0 : rt + curt_fixb_flt 
re 
C 5 1 4g curt_fixb_fit: 

54 51 F8 8F 78 OC 184 ashl #-8 1.74 ; get source scale 
51 1 O02 O03 EF OC28B 1844 extzv 3,42,r1,01 3 determine size of source 
54 ee 73 bc D 130? euces pty $ penezere scale? 

ne e neq, yes 
2 os 3 be ; 184? auld ener! 3 ealeutate index for case 
a river . 
gf ; 1849 case type=b.£7.<108,208, 308,308, 408,508,608, 608,708,808, 908,90S, 1008, 1108 
62 60 6EFD c5 1850 cvtlh (r0),(r2) 
05 Ocsc 1851 rsb 
62 60 4C€ OCSD 1 28 10$ cvtbf (r0),(r2) 
05 0C60 185 rsb 
62 60 4D 0QC61 1854 208: cvtwf (r0),(r2) 
05 0C64 1855 rsb 
62 60 af c65 1 2$ 30$: cvtlf (r0),(r2) 
0 coe 185 rsb 
62 60 6C OC69 1 28 40$: cvtbd (r0),(r2) 
05 OCcéc 185 rsb 
62 60 6p cop 1 $9 50$ cvtwd (r0),(r2) 
5 OC 1 rsb 
62 60 Be c71 1 6 60$: cvtld§ (r0),(r2) 
0 C74 (186 rsb 
62 60 acre re ' rf: 708: cvtbg (r0),(r2) 
r 
62 60 4DF cra ! 6 80$: cvtwg (r0),(r2) 
rs 
62 60 ae cre ' rt: 90S: eve lg (r0), (r2) 
rf 
62 60 6CFD CBE | 19 100S: evtbh Cr), (r2) 
62 60 6DFD OC 5 1 te 110$: cvtwh (r0),(r2) 
05 OC8D 187 rsb 


50 
50 


ge 


7E 


7E 
pene ae 
6 8E 


7E 


19 07 
mote * wed 


6 
7E 


19 +07 
orn 


8E 
7E 


7E 
00004001 
6E 


62 


ae 
se 
xo 
o~— 
cae 
— 
cro 
> 
‘@ 
7 


oa 
m 


oa 
ww 


o 
m 
SOMAOFDINVNOAEO BMWNA ONASONMAASOMNMOCINT OO-Wo 


COCOCOINY COCOWINIVI COCCI OOM WUPOCOO 
MMREMMNS MAHLSMO MMREMO MABLMMO LOWOwWO 


~ 
oa 
—"QOCO NW RWHNHMMMMMOCGIOOOOOWWWIWW>r>?>r?rO;WOOOwWno cs 


MS SOOLSOOMMOOOMUSLSOOOMMNGOOLSOEYSO Mo—nrw—oO 

SOOCSCCOSCOSCOOSOSCOOOOCOSCOOOSOOOOOOOOOOOOOOOoOO 
TIVIIINOAHOHAHAAAAAOAAAAOAAAOHAOAAOAOQAQAANMAOMO 
AMO PUM OWNWUO NUN MND LENS SOLS FP OOMVOVINVIOCT DW oommn 


SSS SS SSS See eee eRe SSS Se Seas 
——SDOOGOSGOOSOOCOOO0O0O0O0O OW coccocecN0o II 
MOOD NOUS WN $$ O ODNAU EW 9 ODNOAUE WIN" OOOnIO 


' pure yee data 
xed b Tnery to 


fe 120$: 


140$: 


170$: 


180$: 


190$: 
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type=b,r1,<150$,140$,130$>; convert source to long context 
(r0),r0 
160$ 
(r0),r0 
160$ 
f ; r0 

negate scale factor 


nets »£7,<170$,180$, 19085; case on dest type 
r convert to huge temp 


-(sp) $ convert to huge temp 
-(sp) ; 
Paes | i ; set the age of 2 in the exponent 
#*x4001, (sp ; add in the constant h_floating part 
(sp)+, (sone, (r2) ; adjust result for scale 
ry .< top? 3; convert to double temp 
roa? #25,(sp) : set ~ Fy o of 2 * the exponent 
#*x 080, Ma 3 e constant h_floating part 
(sp)+, $8} 3 roy Me i scale 

(sp)+, Z ) ; convert to float result 
7 .=\80? 3; convert to double temp 
roa? #25, (sp) 3 set fhe pover of 2 in the exponent 
#*x4 80, (sp ; add in the constant h_floating part 
(sp)+, lial? (r2) ; adjust result for scale 
r. me ; convert to huge temp 

=(5p) ; convert to huge temp 

if : set the power of 2 in the exponent 

$5400 op) 3 constant h_floating part 
(sp)+,( $B} 3 thst i scale 

(sp)+,(r2) ; convert to grand result 
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fixbfixd - fixed binary to fixed decimal conversion 


magpowen it 


J 
'‘@ 
~_ 


tx 


o-— 
~— 
~ 


; functional description: 


This routine converts fixed binary values to fixed decimal values of a different 
precision. 


inputs: 


r0 = address of the source 

rl = size or precision of source 

"§ = address of the destination 

r3 = size or the precision for the destination 


outputs: 
The destination is filled in 
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: convert number to stack 


ios: subl gi6.99 
#*m<ri,r2,r3> 
{2(sp) 


tl r0,ri 
oar cri .r2er3> 


popr #*n<r 
r 
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20$ 
ash r4,r1,(sp) 40,73, (r2) 
#ib,sp 


C030 sentry pliSfixbfixd_r6,*m<iv,dv,r4,r5> 
fixbfixd: 
01 10 bsbb curt_fixb_fixd 
04 ret 
3 convert fixed binary to fixed decimal 
curt_fixb_fixd: 
8F 678 ashl #-8,r1,°5 3; get the source scale factor 
55 98 cvtbl r5,r5 3 sign extend byte value scale to long 
51 9A movzbl ri,ri 3 zero extend precision 
80 30 sbw get sect ixprec ; calc number of target digits 
8F 678 ashl -8, 73,74 ; get scale factor of dest 
53. OA movzbl r3,r3 3 zero extend precision 
54 98 cvtbl r4,r4 3; sign extend scale 
19 +12 bneq 10$ : if neq, no zero scale factor 
55 05 tstl r5 ; source scale factor negative? 
a blss 10$ :; if lss, yes 
55 D1 cmpl r5,#31 3; trying to shift away all the bits? 
04 «#O*'F blssu  5$ : if lssu then no 
50 04 clrl r0 3; else the result is zero 
of 11 brb 7$ 3 go convert to decimal 
5 678 5$ ashl r5,#1,°5 ; calc 2** source scale factor 
23 £8 divl2 £3 -r9 3; convert source to zero scale integer 
0 F 7$ cvtlp r0,r5,(r2) 3; do the conversion to decima 
05 rsb 3 return 


; allocate more than enough room 
; convert value 


yyerse scale factor zero? 


eq, no. 
move to result field 
clean stac 


PLISCONVERT = pl1 general purpose data type conv Seat 1 AX/VMS Macro v04-00 Page 48 PL 
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03 D65 197 rsb 
so C D 8 1971 208: subl 4 6,sp : allocate another decimal buffer 
DD OD 197 pushl : a dest address 
pp D 130 pushl ave dest pre 
1F 00 18 A€ a 34 f Dp 197% ashp + ,24(sp) 40,431 ,B(sp); spake decimal integer 
af d5 ore 1975 tstl r ; source scale factor negative? 
1g 14 QD7 1376 bgtr 3 $ ; gtr, no 
22 5 CE QOD7A 197 anegt 03 ; get abs(source scale) 
: 6 Se D7D 1378 mul ager ys ¢,° scale as an index to a power 2 table 
1F 0090000; GF4 i OA 5 388 197 mulp # 6°3 pli$b_pac_2_power_ botrs).-;mul by 2**(abs(source scale)) 
$b —E 1980 3} re (sp),@4(sp) ; and move to result 
17. 2«11 43 1981 brb ; oin common return 
55 06 Ss D90 «(19 ¢ 30$: mull2 ys ¢ scale as an index to a power 2 table 
1F tt weed shee . 7 Boge 19 divp weer “pli$b_pac_2_power_ 60 r5j,-:div by 2**(source scale) and 
QODA1 138¢ #31,8(sp),(sp),a4(sp) ; move to result 
5E 28 £0 DA1 1985 40$: addl #40,sp : clean up stack 
0 DAS 1956 rsb 3: return 
Boag 198 
DAS 1358 3 
QODAS 1989 ; get_src_fixprec 
ODAS 1990 ; 
ODAS 1991 ; calc the number of digits based on a fixed bin precision 
ODAS 1936 3 
DAS 19935 get_src dan ga 
54 DD ODAS 1994 r4 
54 51 O01 C1 ODA? 1995 Bddl #i,r1, ; get tine tet size 
50 60 54 00 EE OQDAB 1996 exty #0. ras (70), r0 ; get the v 
51 00000064 8F C4 ODBO 1997 mull2  #100,r1 3 get eracision of result by rule 
51 00000297 8F C0 eT 1998 addl Ae ri 
51 0000014C 8F C6 pee 1999 divl #332,r1 
54 8EDO 4 444 popl r4 
05 Opcs 2001 rs 
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inary to float decimal 6-SEP-1984 PLIRTL.SRCJPLICONVRT.MAR; 1 (1) 
esbttl fixbfltd - fixed binary to float decimal conversion 
fixbfltd - fixed binary to float decimal conversion 
functional description: 
This routine converts a fixed binary value to a float decimal value. 
inputs: 
rO = address of the source 
ri = size or precision of source 
r2 = address of the destination 
r5 = size or the precision of the destination 
outputs: 
The destination is filled in 
-entry pliSfixbfltd_r6,*m<iv,dv,r4,r7> 
fixbfltd: 
bsbw dest aihaits ; get dest context 


— cvrt_fixb 3 continue in common 
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fixbchar = convert fixed binary to character 


functional description: 


inputs: 


r0 = source value 

rl = precision of source 

r2 = address of the target 
r5 = size of the target 


outputs: 
The output field is filled. 


; convert fixed bin to a character string 


o esbttl 
; fixbchar - convert fixed binary to character 


This routine converts fixed binary numbers to character 


check for possible overflow 
non-zero source scale? 


convert precision of source 
include for sign 
allocate the space 


move to target 
return to caller 


first convert to a fixed decimal temp 
convert to char 
never used fixdchar does ret. 


eentry pliS$fixbchar_r6,*m<iv,dv,r4,r5,r6> 
ixbchar: 
bsbw chk_fixb_string ; 
cmpw “xFf,rl : 
blssu ; if lssu yes. 
bsbw 9ecag"c~fixprec § 
addl ol : 
subl ri,s 3 
movl sp.r 3; save address 
bsbw cvrt_fixb oe 3; do conversion 
moveS 1,(r6),#32,r3,(r2) : 
ret : 
10$: bsbw fixbfixdtemp : 
bsbw fixdchar ; 
ret : 
curt_fixb_char 


cyurt_fixb_char: 
pushr #*m<r0,r1,r2,r3> 3; save regs 
moves #0,(r6s,#82,r1,(r6) > fill with spaces 
§ popl r 3; get value 
10$ eave #1,°0,40,r0 3 sign extend value 
ediv #16,76,76,r2 3; get remainder 
mov l r2,ri 3 get remainder 
bgeq 15 ; 1f geq then no 
ones) ri, 3 
8 15$ add #*a/0/,r1,-(r3) ; insert character 
tstl r 3 = 0? 
bneq 10$ 3; If neq then no 
tstl r ; last remainder negitive? 
bgeq 20$ : if geq then no 
movb #*a/-/,-(r3) ; insert minus sign 
4 20%: popr #*ac<ri,r2.r3> : 
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05 3 ? 5 : rsb 
A 5 3 fixbfixdtemp 
E A 5 convert fixed bin to a fixed decimal temporary 
E2A : : 
A 91 ; inputs: . bin value 
A 5 ; + Mars. of source 
9% ; Gutpute: onverted value 
f A 95 ; r? . et ghmn value 
ESA $098 : r4,r5 destroyed 
5SA 38 : rn address 
E2A 2099 tixbfixdtemp: : i save return ad 
26 SEDO OEZA 1 Soy $ «(sp) fey rce scale 
7E 3 22 E¢D ! 1 asht #-6,r1 05 ot aeae anes in longword 
5551 FB BF 78 ESD 2108 movzbl rt. r4 ; get fixed field size io 
4 1 9A OE 104 addl #1,°4,r1 : get source value in a Longue ton 
3 «ORD OEE hese Sige exty = #0 r1,(r0) .rG ; allocate space for a decimal temp 
50601 ES eal 54 re een ; convert to decimal 
—e 1 ¢ aH i $ evtl 0. (sp) : source scale negative? 
“3 Bo ae ge get is Tete ate 
$ Ue 4D 190 anegt reer} : Sate number of decimal digits 
r ° 
Ly Wass: SE Hoffa ; 
4 90000297 F CO OE5A et saat 1332" : save number of decimal digits 
2 00014C 4 ‘3 6} i pushl re > source scale negative? 
3 os Eee 119 ore ig ‘ : ft ok, as y+ te a power 2 table 
#6,¢r ° te more spac 
E 10 €3 OEM 5119 subt #138 csp) #10,- istale up for implied zero bits 
OA 14 AE i i er i ; “— gro $0. pac.c.power 00Cri set‘up tor convert fixd to char 
6— 54 hat | D £81 51 : mov 1 t1 1 : 
l 16(sp).r : 
REO OEBe ft mova 36(sp) <r 
33 22 AE 7D E ! : TP tr = : Hameo scale to decimal precision 
5 QE8E 2126 168: mul L 0} 
” 2 3148 6 $44 i d vt A 2sr4 + allocate a second decimal temp 
54 14C BF OC E90 : 3 subl#i6.5p | #0,#31,(sp);make a decimal integer 
.-Y i & 130 ash 19-93) cpt ep) £0851, (ep set decimal scale oS tebke 
00 14 AE TF 2e FR EAT 131 mov ra, 17(sp) : use scale as index into powe 
ee os $f iH iy 1 § af tetsp) ri Pr odie eb Pivtenures scale) 
00000000°¢ i510 EBA 5134 dive #10,9*pLiSb_pac_2_powerbobrsi,-:div 
6E 1F abt of 3) 135 rd }.<9p) art .20¢sp) ‘ set up for convert fixd to char 
fr ; 
0 14 AE DE GEC? 9136 ee hg (sp) orl : 
i 10 AE p ete 1 movg $97 .¢ > return 
a 2) 
- EDS 140 
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4 1? ares -sbttl fixbvcha - convert fixed binary to character varying 
ED 14 ; fixbvcha = convert fixed binary to character varying 
ED 146 : functional description: 
4 1 : This routine converts fixed binary numbers to character varying 
ED : inputs: 
ED 1 ; r0 = source value 
ED 1 $ rl = precision of source 
ED 154 ; "§ = address of the target 
4 ! : r5 = size of the target 
Hs \ : ; outputs: 
ED 135 : The output field is filled. 
C070 ED 161 i eon sentry pliSfixbvcha_r6,*m<iv,dv.r4,r5,r6> : 
xbvcha: 
F698 30 OED7 183 bsbw chk_fixb string ; check for possible overflow 
51 OOFF 8F 81 OEDA 2164 cmpw #*xffiri 3 non-zero source scale? 
1F 1F QEDF 2165 blssu 0$ ; if lssu yes. 
FEC1 30 O€E1 198 bsbw 9gcafC-fixprec 3 convert precision of source 
1 ie: EES 21 addl of : include for sign 
E os EE7 2168 subl ri,s ; allocate the space 
6 E 4 EEA 192 movl sp.r 3; save address 
sa EED 2170 bsbw cyrt_fixb_char 3; do conversion 
53 1 61 OEF 171 cmpw rior 3 room enough? 
: 18 OEF 1% blequ 108 : if lequ then yes 
51 i) €F 17 mov | r3.r) 3; use smaller size 
82 1 EF 174 10$: movw ri,(r2)+ ; insert size 
62 + 6€ 1 EFB 2175 move3) ri,(sp),(r2) 3; move to target 
44 176 ret 
rege 0 00 178 20$: bsbw fixbfixdtemp : convert to fixed decimal temp 
0337 0 OF 17 bsbw fixdvcha 3 convert to char 
04 or oS 190 ret 3: never used fixdvcha does ret. 
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«sbttl fixpb ts - fixed binary to bis string conversion 
esbttl fixbabit - fixed binary to bit aligned conversion 


++ 
fixbabit - fixed binary to ete aligned conversion 
fixbbit - fixed binary to bit string conversion 


functional description: 


—_ 
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This routine converts a fixed binary value to a bit aligned string. 
inputs: 

r0 = address of the source 

rl = size or precision of source 

a = eddress of the destination 

r5 = size or the precision of the destination 

r6 = bit offset to destination 

outputs: 

The destination is filled in 


sentry pliSfixbabit_r6,*m<iv,dv,r4,r5,r6> 
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she pett_prettor 3; clear abit last byte 
x 
‘ sentry pliS$fixbbit_r6,“m<iv,dv.r4,r5> 
‘bsbw — cvrt_fixb_bit 
ret 
curt_fixb_bit: 
bsbw 
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1 
1 
' 
F658 0 1 chk fixp_string ; check values 
55 é 9] 1 1 addb3)s so #1,F1.r 
2 5 A 1 movzbl +*5,r5 3 zero extend field size 
50 60 5 0 § 1 extv #0,75,(r0),r0 3 get sign extended value 
3 4 bgtr ; branch if positive 
50 cf ahegt r0,°0 3; make positive 
55 51 8 BF 5$ ash #-6,71, 75 : get source scale 
51 1 QA movzbl ri,ri 3 zero extend the source prec 
33 55 9 cvtb r5,e5 3 sign extend source scale 
1 » §¢ subl r5,r1 ; get prec minus scale 
5 2 ¢ anegt r5,r5 3 set up to convert to zero scale 
50 ? ash r5,r0,r0 3 convert to zero scale 
a moy | sp.r 3; address a temp 
fg. ? clrl -(sp) 3 
54 50 9A OF4 {0s movzbl r0,r4 ; get low order byte of src 
75 £386 cr ad 30 4 movb reverse bit tblCr4],-(r5) i get reversed byte 
50 50 F8 8F 4 ashl #-8,r0,r 3; shift src down a byte 
gtr : more, continue 
FO 314 b 10$ f 4 
Ss «® FH c subl3 1,#32,r5 3 adiust to converted bit prec 
96 4 bgtr 15§ : if 32-(prec-scale)>0 get value 
1 F 4 movl #3i,r1 3; set max prec 
5 ta movl “i.e : get full 31 bit field 
xtzv , ° 3 
6— 6€ 1 ; EF 15$ extz r5.r1,(sp),(sp) 
20 D1 6 capl r3.#30 ; see if dest. gtr longword 
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: bleq 208 3: if not, 

of | pont, absent Paty 
v 3 x . ° 

62 53 a3 fe ie insv (sp5+,r6,r3, (r2) : insert dest. . 
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i Pe 1 YAX/V 
TRS es type, ganverss ~SEE= 1382 94:38:22 FARINAS Saese, ¥Oe 
F74 4 
F74 4? ; 
F74 48 ; clr_abit_trailer 
F74 49 ; 
45; 3; inputs: 
F74 : "¢ = base address of the destination field 
45) ? 3 r5 = size of the destination field 
45% 2? : outputs: 
He 3? : r6 = 0 
ree 28 : the Last byte of the destination is cleared 
F74 $9 Clr_abit_trailer: 
F74 6 movzwl r3,r6 3 
‘77 66 addl .r6 
F7A 6 bicl rd 
F7D 64 subl r3,er 3 any trailer? 
4 65 beql 10 : if eql then n 
F 96 insv #0,r3,r6,(r2) 3; insert zero trailer 
F8 6 clrl r6 3 
F89 68 10$ rsb 3; done 
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8 clr_bit_dest 
7 ; inputs: 


FRA 
FRA 
F8A 
an 
FRA 75; "¢ = base address of the destination field 
FRA 6 ; r5 = size of the destination field 
: A 4 3 r6 = offset to the destination field 
: 8 3; outputs: 
‘ 9 3 destination field is zeroed 
FBA j clr_bit_dest: 
20 53 4»D1 OFBA 4 cmpol r3,#32 3; short operation? 
06 1A OF8D 5 bgtru 10 ; if gtru then no 
62 53 56 00 fe : 4 Hy mee #0,°6,r3,(r2) 3: zero short field 
rs 
gorr 8F BB OF9S HY 108: pushr #*m<r0,r1,r2,r3,r4,r5, r6>; save registers 
54 56 O 00 EF OF99 extzv #0,#3,r6,r4 3 get offset byte bias 
OF {3 44 90 beql 3; 1f eql then byte aligned 
54 96 54 OB FA 91 subb3  r4,#8,r ; get remainder in byt 
62 54 6 00 FO OFA4 3 insv #0, ré, Z (r2) 3; zero initial unat {gned bits 
56 54 C a 9 addl r4,r ; byte aligned no 
53 54 06«C‘ FAC 94 subl r4,r 3 remove zeroed bits from count 
~ ts Bs ao 95 208: divi3 #8.r3,r0 3 calc number of bytes in field 
56 08 C6 OFB3 96 divl #8.r 3; calc number of bytes to field from base 
54 53 03 00 EF OFB6 97 extzv #0.#3,r3,r4 3: get end byte bias 
09 13 OFBB 2298 begl 308 : if eql then byte sized 
50 56 CO OFBD 99 addl Sef : corm to sest t byte 
6240 00 00 FO OFCO 00 insv §-00 r4,(r2)Cr0 ro end field 
6246 50 00 6246 00 2C OFC6 01 30$ movc5 10. *(r2)Cr6),40 3 crprcebaz” clear niddle 
OO7F 8F BA OF CE 0¢ popr #*m<r0,r1,re,r3,r6 
rs 
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fixdpic - fixed decimal to picture conversion 

functional description: 

This routine converts a fixed decimal value to a picture value. 


inputs: 

r0 = address of the source 

rl = size or precision of se soyrce 

r2 = address of the destina 

r$ = size or the precision J the destination 
outputs: 


The destination is filled in 
entry pliS$fixdpic_r6,“m<iv,dv,r4> 


fixdpic: 
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6 DD pushl r2 ; target addr 
7E 046 A3 9A movzbl pic$b_byte_size(r3),~(sp); targgs Pa 
50 oD pushl fr0 3 addr 
51 oD pushl ri 3 sre p.q 
53 DD pushl 3 b ; pic cons node 
00000000'GF 05 fe aby #S,g*pli$cvt_to_pic 3 convert to picture 
re 
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xed binary 6-SEP-19 PLIRTL.SRCJPLICONVRT.MAR; 1 (3) 
sbttl fixdfixb - fixed decimal to fixed binary conversion 


fixdtixb - fixed decimal to fixed binary conversion 
functional description: 
This routine converts a fixed decimal value to a fixed binary value. 


address of the source 

size or precision of source 

address of the destination 

size or the precision of the destination 


rd 
ri 
r§ 


outputs: 


The destination is filled in 
oon try pliSfixdfixb_r6,*m<iv,dv,r4,r5> 


curt_fixd_fixb use common routine 


bl #16,sp ; make a buffer 
movzbl ri,r5 3 get prec 
ashl—s #8, r'1,r1 ; get scale 
cvtbl) ri,ri 3 sign extend scale 
anegt ri,ri ; - ate for shift off fraction digits 
ash #-6,73,74 : destination scale 
movzbl r3,r3 3 tere extend dest prec 
cvtbl r4,r4 : sign extend dest scale, zero scale? 
beql of ; if eql yes 
pushl r3 3 save destination prec and scale 
movqg r1,-(sp) 3; save source prec and scale and target addr 
subl #16,sp : allocate a second buffer 
tstl 4 : oe ecale negative? 
bgtr 10$ 3 
mnegt eee " : cale abs (dest scale) 
mull2 use scale as offset into a power 2 table 
divp An of ti gb- re! 3 _power_ botréa.-; truncate implied zero bits for fixe 
r5,(r 
brb ; : join common code for pos and neg scale 
mull2 use e_scale as Pp. into a gover 2 table 
mulp 16, g*pli$b.pa pac_2_power_ bo r4],-; calc 2ee(dest scale) * source 
fr’ 


J 
ashp £3, {008 ii bth 40,431 .2b(sp); shift to truncate decimal fraction 


cvtpl 8(sp).r5 
extev a Py; 2a sp) ),r3 


do conversion to integer 

get context 

restore address a destination 
clean up the st 

case on Pry Pts « context 


(spS.r 


cvtlw r5,(r2) ; 


wSEp=1986 94 : 2 EBLGRTE. SReSPLiconvar.man:t 28° 73) 


ow 
o Oo 
fo ow 


j FeeP #0,431,8(sp) 


$9/°9, 
eyed tixb_fixb 
#20,Sp 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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; shift into integer 
do conversion 
restore 

store in memory 
address it 

set size 

store result 

clean stack 


nent 


>t 
ee 
xo 
are 
—a~ SS 
~ 
ro 
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! ; "1 ? _ -sbttl fixdfltb - fixed decimal to floating binary conversion 
i ; rf 5 ; fixdfltb - fixed decimal to floating binary conversion 
! : : § : functional description: 
} ; 609 ; This routine converts a fixed decimal value to a floating binary value. 
: ‘Ht : inputs: 
108E 11 : rQ = address of the source 
108E 2414 ; rl = size or precision of source 
108E 2415 ; "§ = address of the destination 
18 ; 21§ ; r5 = size or the precision of the destination 
ee ht : outputs: 
108 4 0 : The destination is filled in 
COFO 1086 4 : : sentry pliS$fixdfltb_r6,*m<iv,dv.r4,r5,r6,r7> 
10 423 fixdfltb: 
F579 = 330 9.4 424 bsbw dest_fltb_prec 3; get dest context 
01 i ad ri 5 babe curt_fixd_flt 
re 
1096 24 5 curt_fixd_flt: 
546 51 F8 BF 78 1096 2428 ashl #-8,r1.r4 3 save scale 
55 51 9A ie ? 4 movzbl ri,r5 3 get prec 
43 ¢3! : try «w#i:.k convert by going to longword 
20 89 1O9E 5439 bicpsw #psl$m_iv ; turn off int overflow 
OF 4 10A 434 pushr @# “> ri,r2,r3> 3 save regs 
56 60 55 36 10A2 2435 cvtpL 5,(r0S,ré : evt packed to Long 
OF BA ISAs 4 $ opr #*m<r0,r1,r2,r3> 3 restore regs 
41 1D 10A 4 vs 9 : if overflow, do it the long way 
20 B8 10AA 2438 bispsw #psl$m_iv 3 re-enable int overflow 
10AC 2439 case typecd.£7.<18.28.38> 3 case on dest type 
7E 56 oer 10B6 2440 cvtlh r6,-(sp) 3; cvrt to huge temp 
62 8E F040 CF44 6 Fe 19e4 red aut hs h_power_of_10({r4],(sp)+,(r2) ; adjust result for scale 
rs 
36 56 6E— 1 eg rk 1$: cvtl r6,r6 3 cvrt to double 
56 =EF35 CF44 $ 10C6 2444 muld d_power_of_10[{r4],r6 3; adjust for scale 
62 56 ° : ce ree cvedt r6,(r2) 3: cvrt to float result 
rs 
56 656 ee 1 0 ri 2s: cvtl r6,r6 ; cvrt to double 
62 56 EF28 CF44 82 : + re oe d_power_of_10(r4].r6, (r23 adjust result to scale 
rs 
7E 56 6EFD 100B 2450 38: cvtlh r6,-(sp) ; cvrt src to huge 
6E ad | CF44 64FD 10DF 2451 mulh2 h power of 10Cr41. (sp) ; adjust for scale 
6 8E orp 10E6 $36 cvthg (Sp)+,(F2) 3 cvrt to grand result 
0° loe8 S284 - 
: 3 $2? : the long way 
0 B68 10EB 433 $s: bispsw ogsise_iv 3: reset int overflow 
5E Pa} ep $28 sub #52,sp ; allocate tong for leading sep string 
—E DD 10F 45 pushl sp ; make a descriptor for l.s. str 
| 


d 7 
PLISCONVERT = pli general purpose data type conversi 16-SEP-1984 02:14:21 YAX/VMS Macro V04-00 Page 6 
bos fixdtlep - xb Gec imal to feat ng bin aad ae Fi 95:40:20 LOL TRIL. SREJPLICONVRT.MAR: 1 ’ 03) 
7E $3 4 10F 4 addl3 #1, r5,-(sp) ; inc sign byte in desc str length 
4 10F 4 movg r ah \y ; save dest. regs 
10 AE 55 g 9 10F & cvtps) 5,(r0),r5,16(sp) 3; cvrt packed to leading sep 
3 D 10FF 246 movq sp),r2 : restore dest,but leave space on stack 
[oa ; 464 clrq  =(sp5 : and make more room for return value 
11 465 ; 3 make frame for convert call 
7 D4 11046 26 § clrl -(sp) ; caller flags (default round) 
8 DD 11 $ 4 pushl # 3; scale 
DD 11 rh pushl # 3; frac 
8 AE DF 110A ¢$ pushal 12(sp) 3 return addr 
AE OF 110 rt 4 pushal 32(sp) 3; src descriptor addr 
1318 rts case type=b,r7,<10$,20$,30$> ; case on dest context 
00000000 ' GF 93 FB 111A 2474 calls #3 gootsScvt_t_h ; cvrt to huge 
51 50 —€9 1121 2675 c r0,50$ 3;_br if error 
62 6E& EFD6 CF44 65FD 11246 $78 mulh3 = h power of 106r4]. (sp), (re? ; mul return value by scale 
5E 38 9 1) ‘ rt eddl #56,sp 3; clean stack 
s 
00000000'GF 05 FB 11 9 £58 10$ calls #3 -grotsscvt_td 3; cvrt to double 
38 50 =O E9ssi11 480 c r0,50$ 3; br if error 
6E EECI CF44 $ 113A 2481 muld2 d_power_of_10[r4],(sp) ; adjust for scale 
2 1178 4 ¢ cvtdf Cp). (r2) 3 cvrt result to float 
E f 18 ; oeat #56,sp : clean stack 
rs 
00000000 ' GF 5 FB 1149 485 20$ calls #3 gootsscvt_td 3 cvrt to double 
4 e We og6 blbc r0,50$ :_br if error 
62 6E€ EEAA CF44 > Ti 48 muld3 d power of 100r4). (sp). (r2) ; mul return value by scale 
SE 38 £9 1138 rt addl #56,sp 3 clean stack 
rs 
00000000 ' GF 9° FB 112% 490 30$ calls #3 -gugtsscvt_th 3 cvrt to huge 
OF 50 =€9 #116 491 Lbc r0,50$ : br if error 
6E EF94 CF44 ore 1166 249 mulh2 h_power_of_10[r4],(sp) ; adjust for scale 
62 6FD 1160 49 cvthg (Sp),(r2) i cvrt result to grand 
5E c? 130! rh a ° -sp : clean stack 
rs 
F2DD $3 1175 2496 50$: brw error 
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a th8S fixdtisd - #2 Bec imat to ied decima -$ 1382 94: ¥ +? YO TRIL. SRCJPLICONVRT.MAR; 1 ° 6g 
11? $3 : -sbttl fixdfixd - fixed decimal to fixed decimal conversion 
1 ; fixdfixd - fixed decimal to fixed decimal conversion 
vy : functional description: 
11% ¢ : This routine converts a fixed decimal value to a fixed decimal value. 
11 : inputs: 
117 DB baneans 
117 3 r0 = . dress of the source 
112 $ rl = size or precision of source 
11 5 r2= oddress of the destination 
We ! : r5 = size or the precision of the destination 
117 13 ; outputs: 
117 14; — 
Vie 316 3 The destination is filled in 
C030 117 i$ : entry pliSfixdfixd_r6,*m<iv,dv,r4,r5> 

117A 218 fixdfixd: 

54 51 QA 117A 251 movzbl ri,r4 ; get prec and scale 

51 51 FB ef 78 117D 2520 ashl #-8.11 1,r1 : 
55 3 9A 11 ¢ 521 movzbl 3 
53 53 f88F 78 11 5 : sent o=b. 8.08 : 
53 2] C2 118A 25 subl eyer 3; cale scale change 
62 55 00 60 54 3 FB 1180 2524 ashp r3.7°4,(r0),#0,r5,(r2)  ; move data 
04 1194 2525 ret 
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oe sbttl fixdfltd - fixed decimal to float decimal conversion 
fixdfltd - fixed decimal to float decimal conversion 
functional description: 
This routine converts a fixed decimal value to a float decimal value. 
inputs: 

r9 = address of the source 

rl = size or prec tsten of source 

¢ = address of the destination 

r5 = size or the precision of the destination 
outputs: 

The destination is filled in 


sentry pliSfixdfltd_r6,*m<iv,dv,r4,r5,r6,r7> 


ixdfltd: 
bsbw dest_fltd_prec : get dest context 
+ 3 curt_fixd_flt ; continue in common 
re 


-_ 
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4 
fixdchar = fixed decimal to character conversion 
functional description: 


OOOO A 


This routine converts a fixed decimal value to a character string. 
inputs: 


PIAA 


=OODNOUS UM 


ro = address of the source 

rl = size or precision of source 

"6 = address of the destination 

r5 = size or the precision of the destination 


outputs: 
The destination is filled in 


eoSinsert <*x20> 
eo$Sinsert <*x20> 
edint: eo$float 0 
eo$float 
eo$Send_float 
eo$set_signif 
eo$move 
pt: eo$Sinsert <*a/./> 
frac: eo$move 
eo$move 15 
eo$move 1 
eo$end 
eo$end 
edit_end: 


no_int: eo$set_signif 
eo$store_sign 
eoSinsert <*a/0/> 


DNAS UES UNVIOM MmMrmmmmmmmmmmmmmmrnn 


WOOO 00000090969 0969 09 69 09 09 09 SII NINN NN NIAAA OO 
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att atiadad miaiatadtataiablatatmbiabaimiaabad daddies iabmiadablwabubabataiabababababaiabababatbababababah g= 
tutatatabaiciadadlaaladtlmiabaiadabtababtaiatiababaiuiabdadatadadsdabadiababtatabababababatlababdadabababababababababababad 
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Foe ar al al al an al ah Ab Ah ab bh hh hh ed ehh ebb ch cheba hab abi nib elidel chub ebb ehhh beh bed hth db dh ehh Ab ib ch dh dh dah dab dub db dh dah cdah sh dh duh edb duh ch al 


00000010 edit_len = edit_end-edit_beg 
00000004 edit_int = edint-edit_beg 
aia 9 edit_pt = edpt-edit_Be 
edit_frac = edfrac-edit_beg 
c070 sentry pliSfixdchar_r6,“m<iv,dv,r4,r5,r6> 
fixdchar: 
4 51 QA sovepl here 3 
56 4 5 9 addl #3,r4,r6 3; r6 is the precision based size 
E 2 subl r6,sp 3 allocate the space on the stack 
E D 1 movq r3,-(sp) 3; save regs 
D § pushl fr 3 saver 
7E EO AF D movg edit_beg+8,-(sp) ; copy end of edit table to stack 
7E D4 AF 7D 4 mov edit beg.-(sp) 3; copy beg tanine of table to gteck 
52 E p B 5 mov sp,r 3; save address of beginning of table 
55 51 F8 8F $ ashl #-8,r1,°5 3 get scale 
a. % bneq 3; 1f neq, scale present 
09 AE 9 8 clrb edit_pt(sp) : mo scale, don't do dec pt or frac 
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5 tbOy TiRGtLE © Fixed Bec tmat tot ‘ Seer 18ke $Fideiza PARINTS Meese Yee Ole mans1 ee 93, 
11 1108 brb 20$ 3; continue in common 
2 es C2 11DA ° 10$ subl 29 r4 i; get size of fre part 
5 : 11D 1 subl #1$.r5 ; sca 
11 1 bgtr 1 ; if gtr, yes 
1 i 1 bneq 14$ 3; if neg, scale < 16 
OB AE 1 1 movb #3,edit_frac(sp) 3; nop { rst move of frac 
Cc 11° «+11€8 1 brb 14$ 3 continue 
OC A 94 1358 18 14$ clrb e At frecet(sp) ; skip last move for fraction 
ee co (11 1 addl #16,F 3; readjust scale 
OB AE 04 FO 11F 18 15$: insv £5,#0,#4,edit_frac(sp) : set size of fraction 
B5 11F 16$: tstw (rb)+ : skip first insert in table 
? 11F tstl r4 3; check size of integer part 
7 IFA beql 40$ : if eql, no integer per’ 
4 O07 11FC 26 § 208 decl r4 3; calculate size of float int part 
D 13 #11 ° beql 308 : if eql, only 1 gigit integer 
54 an Sf : subl #15,°4 : int part > 15 digiis? 
a OS 6 bgtr 25$ ; if gtr. yes 
OS AE 1 90 4 6 § movb #1 ,edit_int+1(sp) 3; don"t do second float 
66 F CO 1209 26 addl r 3 readjust size 
04 AE 4 FO 1 6 3 +3 $ insv r4,#0,86, dit. int (sp) 3 set size of float int part 
1C AE 62 60 18 AE ; 1212 2629 308: editpe 24 isos .¢r ) (72) é (sp) : edit the string 
14 AE 2 1c te Fs C ' 1 630 move r6,28(sp) ,#*x2 »2 (sp ,@16(sp) 3; copy to destination 
gs 1 631 ret 3 and return 
38 5 AE 3 1 6 § 40$ movab edit_int+1(sp),r2 ; get address of new start of table 
6 AF 00 1 6 mov l no_int,(r2) ; Copy new start of table 
E5 11 1228 2634 brb 308 3; continue in common 
04 AE 4a CF 90 1 635 50$ movb no_int,edit_int(sp) ; nop first byte of float int part 
OS AE FF77 CF BO 1 6 § movw no_int,edit_int+1(sp) ; nop rest of float int part 
D7 =i ! ° brb 308 3 continue in common 
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fixdvcha - fixed dec 
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PAAAA AAA 


fixdvcha: 


’ data ty 
mal toc 


-sbtt 


inputs: 


r0 


r 
r 
r 


outputs: 


The d 
entr 


movzb 
addl 
movw 
cmpw 
blequ 
movw 
tstw 
rw 
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lL fixdvcha - fixed decimal to character varying conversion 


++ 

fixdvcha = fixed decimal to character varying conversion 

functional description: 

This routine converts a fixed decimal value to a character varying string. 


eférese of the source 

size or precision of source 
address of the destination 
size or the precision of the destination 


estination is filled in 
y pliSfixdvcha_r6,*m<iv,dv.r4,r5,r6> 
L ri,r4 ; get precision of source 
#3,°4 3 get size of dest based on precision 
r4,(r2) 3: insert size 
r4,r3 3; destination large enough? 
198 : if lequ then yes 
r3,(r2) ; insert max size 
(r)+ ; address actual text target 
fixdchar 3 continue in common 


1-( 
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! Fala esbttl fixdabit - fixed decimal to bit aligned conversion 
1 3 fixdabit - fixed decimal to bit aligned conversion 
} f : fixdbit = fixed decimal to bit string conversion 
73 ; functional description: 
! 3 This routine converts a fixed decimal value to a bit aligned string. 
4 : inputs: 
1 ; + = address of the source 
1 3 rl = size or precision of source 
1 3 "§ = address of the dgsy ination 
1 4; r5 = size or the precision of the destination 
: 5 : r6 = bit offset to destination 
3 6 § 3 outputs: 
3 6 ; : The destination is filled in 
C070 125 691 . sentry pliSfixdabit_r6,“m<iv,dv.r4,r5,r6> 
1 é 36 fixdabit: 
Fors 79 : 3 o87 bebe clr_abit_trailer ; clear abit last byte 
r x 
co30 (1 aA 695 -entry pliSfixdbit_r6,*m<iv,dv.r4,r5> 
125€ 4 fixdbit: 
5E gs C2 125C 269 subl #4,s 3 get space for temp 
004C 8F BB 125F 038 pushr #*m<r2,r3,r6> 3 save destination 
52 OC AE DE 1 $3 +4 moval teteg vr ; plug address of temp for dest 
53 1 9A 126 00 movzbl rir 3; get src prec 
54 51 Ff 8 BF 78 126A 701 ashl—s #8, 1,64 : get src scale 
53 4 C2 1 of 7 § subl2 r4,r3 3 prec-scale 
5 sie a bbe , fF § 70 ull #32273 3 conv prec from dec to binary digits 
F te 1580 5708 aset Bob es 
1F 3 oi #1 ¢ 7 $ cmapl r3,43 : check for max prec 
03 15 128A 27 bleq § : if feq, om 
53 1F 00 128C 2708 mov l #31,°3 : else set dest orec to max 
53 DD 128F 2709 20$: pushl 3; save binary prec 
Ss 4 1291 2710 movl #31,°3 3; convert to fixed bin(31) 
FD5S7 1294 2711 bsbw curt_fixd_fixb 3; convert source to fixb temp 
51 BEDO 1297 ar popl ri 3 reset src prec to binary prec 
904¢ gr BA 129A 4 popr #*m<r2,r3,r6> 3 restore destination 
E 0 129 14 movl sper ; plug address of temp tor source 
FC6C 1 112A 715 brw fixbbit 3; done 
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] ve at 4 ee sbttl fltdpic - float decimal to picture conversion 
! rv 7 : fltdpic - float decimal to picture conversion 
! a f : functional description: 
: ee 7 : This routine converts a float decimal value to a picture value. 
12A4 2725 : inputs: 
12A4 27 § 3 
12A4 2727; rO0 = address of the source 
12A4 27 8 : rl = size or precision of source 
12A4 2729; "§ = address of the destination 
! ~ 4 , 3 r5 = size or the precision of the destination 
12A4 27 § : outputs: 
12A4 2733; 
: 7 f : 3 The destination is filled in 
C1FO 1204 2736 ° sentry pliS$fltdpic_r6,*m<iv,dv.r4.r5,r6,r7,r8> 
12A6 2737 fltdpic: 
F384 0 12A6 2738 bsbw src_fltd_prec ; get src context 
F4E1 0 12A9 2739 bsbw cvrt_flt_pic 3 cont in common 
04 12AC 2740 ret 


cere 
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esbttl fltdfixb - float decimal to fixed binary conversion 
fltdfixb - float decimal to fixed binary conversion 


PLISCONVERT - pli gener 
tbOy fltdtise = 


functional description: 
This routine converts a float decimal value to a fixed binary value. 
inputs: 

r0 = address of the source 


= Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge Ge Se Ge 


i dd td dd 
@ >> >r>r>rrrrrr,r 

ocvoVvovcoVTI [TT T[TTC9O LJ 
RIPDPOPDPPIPYIPINIPIPYAMUPIPIPINIPIPINITIPININY = - 


et 
A) 

i 
745 ; 
rs 
f 

i 
: 
73 
£3 
i 
# 
760 
761 
roe ft 
76 

if 


ri = size or precision of 1 source 
r2 = address of the destinat 
r3 = size or the precision of the destination 
v4 outputs: 
ns The destination is filled in 
C010 AD entry pliSfltdfixb_r6,*m<iv,dv,r4> 
F378 0 AF aca = b fltd_ t text 
sbw src ec 3 get src contex 
F505 3 Be eeby cvrt_flt mf) ixb 3; do conversion 
re 


mason i 


1 


a a a BS ot 2 nt 8 Dt dt tt tt 


ener 
dfltb - 
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a osbttl fltdfltb - float decimal to float binary conversion 
fltdfltb - float decimal to float binary conversion 


functional description: 


purpose 
at decim 


This routine converts a float decimal value to a float binary value. 
inputs: 


address of the source 

size or precision of source 

address of the destination 

size or the precision of the destination 


outputs: 
The destination is filled in 


Hel pli$fltdfltb_r6,*m<iv,dv,r4,r7> 
bsbw src_fltd_prec 3 get src context 
bsbw dest_fltb_prec 3 get dest context 
$ bsbw cvet_flt_Fflt 3 cont in common 
re 
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} : at as sbttl fltdfixd - float decimal to fixed decimal conversion 
! : P32 ; fltdfixd - float decimal to fixed decimal conversion 
c 199 ; functional description: 
} : 299 3 This routine converts a float decimal value to a fixed decimal value. 
C 0 : inputs: 
12C 8 : r0 = address of the source 
12¢ pe : ri = size or precision of source 
12C $3 r¢ = address of the destination 
' : B38 3 r3 = size or the precision of the destination 
! : i ; outputs: 
: : 5i9 : The destination is filled in 
C1FO 12C¢ Big ‘ -entry pliS$fltdfixd_r6,*m<iv,dv.r4,r5,r6,r7,r8> 
12C4 4 fltdfixd: 
F366 Hi 12C4 14 sbw src_fltd_prec 3 get src context 
F670 0 12C7 $312 bsbw curt_flt_fixd 3; do conversion 
04 12CA 2816 ret 
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esbttl fitdfltd - float decimal to float decimal conversion 
fltdfltd = float decimal to float decimal conversion 
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functional description: 
This routine converts a fioat decimal value to a float decimal value. 
inputs: 

r0 = address of the source 

ri = size or precision of source 


rs = address of the destination 
r3 = size or the precision of the destination 
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outputs: 
The destination is filled in 
C090 Leatte er pliSfltdfltd_r6,*m<iv,dv,r4,r7> 
F35D 0 bsb src_fltd_prec + get src context 
F37B 0 bsbw dest_fltd prec ; get dest context 
F SDF 3 baby cvrt_flt_f 3 cont in common 
re 
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esbttl fltdchar - float decimal to character conversion 


oat decimal to 
++ 
fltdchar - float decimal to character conversion 
functional description: 
This routine converts a float decimal value to a character value. 
inputs: 

r0 = address of the source 

rl = size or precision of source 


"§ = address of the destination 
= size or the precision of the destination 


es Sete Ge Se Ge Ge Ge Ge Ge Se Ge Ge Se Se Ge Ge Se Se 
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outputs: 
The destination is filled in 
CFFO Sak sentry pliSfltdchar_r6,*mciv.dv.r4.r5,r6,07.r8,r9,010,r11> 
F351 0 “psbw src_fltd_prec 3; get src context 
F74F 0 bsbw cvrt_flt_char ; do conversion 
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] ; § om »sbttl fltdvcha = float decimal to character varying conversion 
1 § ; fitdvcha = float decimal to character varying conversion 
! 3 : functional description: 
! ; 73 : This routine converts a float decimal value to a character varying value. 
: 7 : inputs: 
12£ 8 : r0 = address of the source 
12E 9 3 rl = size or precision of source 
12E 3 "§ = address of the destination 
! ; ¢ 3 r5 = size or the precision of the destination 
i : : > outputs: 
: 6 : The destination is filled in 
CFFO : 88 es narenttY pli$fltdvcha_r6,*m<iv,dv.r4.r5,r6,r7,78,r9,710,711> 
v 
82 F 12E 90 ushaw (r2)+ 3; save dest & point to string 
F346 0 12€ 91 sbw src_fltd_prec ; get src context 
F744 0 12E7 8 bsbw cyrt_flt_char 3; do conversion 
9€ 50 B80 12EA 9 movw r0,atsp)? ; plug in size 
04 12ED 2894 ret 
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esbttl fltdbit - float decimal to bit conversion 
; fltdbit - float decimal to bit conversion 
; functional description: 


] E 9 
1 E 38 | ; 
1 BS 
12kE ; 
i 43 2 3 This routine converts a float decimal value to a bit value. 
! 43 2 2 : inputs: 
12EE 29 $ : ro = address of the source 
1 3 2 3 rl = size or precision of 1 soyree 
12E 3 3 "§ = address of the destinat 
: 43 4 : r5 = size or the precision of the destination 
EE $11 : outputs: 
EE 318 ; The destination is filled in 
co30 1 FE 915 * sentry pli$fltdbit_r6,“m<iv,dv,r4,r5> 
12F 318 fltdbit: 
51 4's BS or c4 (1 ry 91 mull o332. " 3; convert decimal to binary prec 
2} 00000063 8F CO 12F 318 addl 499 
1 00000064 8F c6 1 FE 91 divi. #106. hy 
F815 1 130 920 brw flebbit 3: continue in common 
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. -sbttl fltdabit - float decimal to bit aligned conversion 
; fltdabit - float decimal to bit aligned conversion 
; functional description: 


3a 
f 
1h 328 
3 i : This routine converts a float decimal value to a bit aligned value. 
? inputs 
§ : 9 = address of the, source 
: rl = size or precision of s seyrce 
4; "¢ = address of the destinat 
é ; r5 = size or the precision of the destination 
33 : The destination is filled in 
c070 08 4) 
OA $g 
FC67 3 OA 4 
FFEO 1 OD 2944 


outputs 
sentry pli$fltdabit_r6,“m<iv,dv.r4,r5,r6> 


bsbw clr_abit_trailer ; clear abit last byte 
brw fltdbit 


em GeGe Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
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} } 3 - -sbttl charpic - character string to picture conversion 
: ! ot : charpic = character string to picture conversion 
; p functional description: 
! ! 4 § ; This routine converts a character string to a picture value. 
: 4 : inputs: 
131 9 § ; r0 = address of the source 
131 957 ;: rl = size or precision of source 
131 9 8 ; r2 = address of the destination 
: ! 328 3 r3 = size or the precision of the destination 
1310 2961 : 
131 962 ; 
1 $388 
CFFO ! ! +44 “i ‘ sentry pliScharpic_r6,“m<iv.dv.r4,r5,r6,r7,r8,r9,r10,r11> 
charpic: 
6— F209 CF 9E 131 369 , movab pi isenves nnd. (sp) ; conversion condition handler 
SA 26'AF QE 131 se8 movab *10$,r10 : address completion routine 
8 33 1318 38 mov l r3.r1 3 save pic nose — 
6 1 1s 970 cvtwl pic$w_pq(r3).r3 3 set to target 
01¢5 1 : | 44 rw charfTx 3 convert to fixed” decimal 

1324 38 : complete processing 
135¢ $978 fos 

52 DD 1324 96 "  pushl 2 ; target addr 

7E 04 8 S ! . 4 4 souspt picSb. byte_size(r11) ,7(sp); sol ale size 
us : 
ay PD i85e 5979 cushi a B.g 
5B oD 1 980 pushl ri : pie node addr 
00000000'GF 05 fe : +3) coite Gh col tees, sents ; convert to picture 
re 


outputs 
The destination is filled in 
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¢ ad -sbttl charfixb - character string to fixed binary conversion 
99 
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charfixb = character string to fixed binary conversion 
functional description: 
This routine converts a character string to a fixed binary value. 


inputs: 

r0 = address of the source 

rl = size or precision of source 

r2 = address of the destination 

r35 = size or the precision of the destination 
outputs: 


The destination is filled in 


nesttent sentry pliScharfixb_r6,*m<iv,dv,r4,r5,r6,r7,°8,r9,r10> 

char 
movab ok iSenyet.. hnd, (fp) ; conversion condition handler 
movab  w*fixdfixb,r1 16 3 pass address of completion routine 
brw tesstia 3 continue 


pn ap ag ne ap no ae ne ne ae ne ap ne ne ne ne ne me ae ne me me 
7 > } 0900000000 0000 C000 Co OD CD. CD COCO CD CD OD CDCD 


bt > 8 a tt ts 8 tt tt ts tk te tt 
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9 ae -sbttl charfltb - character string to floating binary conversion 
charfltb = character string to floating binary conversion 


functional description: 
This routine converts a character string to a floating binary value. 


1 
134 3 
134 11 ; 
134 12; 
134 13; 
Ve aR 
134 18 3 
! cf ! 3; inputs: 
134 i§ ; r0 = address of the source 
1 af Y 3 rl = size or precision of source 
134 3 r2 = address of the destination 
! rf! § ; r5 = size or the precision of the destination 
1347 4 : outputs: 
1347 »% 
: 4 § ; The destination is filled in 
C090 1347 8 entry pliScharfltb_r6,*m<iv,dv,r4,r7> 
1349 charfltb: 
6D F1D2 CF 9E 1349 3030 movab pliS$cnvrt_hnd, (fp) 3; conversion condition handler 
F2BB 438630 «(134 5 1 bsbw dest_fltb_prec 3; get dest context 
01 by ! : § + cvrt_char_flt 
r 
1 3? 6 4 cvrt_char_flt 
54 D4 1354 3035 ctrl r4 pset no default fractional digits 
1356 4 § cyrt_fchr_flt sentry with fractional digits 
ia Ba a 8 subl #16,sp 3; allocate a place for the return 
50 oD 1 pushlt fr0 3 set up source desc 
3 DD 1358 pushl ri : 
D4 1350 40 clrl -(sp) 3; caller flags: default round 
DD 135F 41 pushlt #0 3; set scale 
4 od 1 6 +g pushl 4 ; set fraction size 
14 AE DF 136 be pushal e0( sp} ; address return 
10 af wae $8 44 pushal 2°38) 3; address source descr 
18 BE 14 AE 136 Bee skpc #*x20,20(sp) ,824(sp) ; skip leading blanks 
13 (1 of 28 beql $ ; all blanks, o 
61 50 3A 1371 4 locc Pi r0,(r1) : find next blank 
14 AE C2 137 $8 subl r0,20(sps ; treat as end of string 
137 49 5$: case Sypend ,F1.<00.78.88 3 case to appropriate conversion 
00000000 ' GF 93 4 1 50 calls #5,g*ots$cvt_t_h 
40 50 €9 138A 51 blbc r0, 
62 08 Af 70FD 1 26 movh 8(sp),(r2) 
3 f : > 7 os 4 #24,sp : clean stack 
rs 
00000000 ' GF . 93 Fe ' 43 5 6$: cells #3 gootsscvt_td 
¢ r0, 
A A cvt sp),(r 
62 8B 5 1 $ df 8(sp),(r2) 
— f ! Ms 28 oot #24,sp >; clean stack 
rs 
00000000"6F | 9 Fe ' | $4 7$: cells #3 grotsScvt_td 
¢ rd, 
62 OB “ V 1 66 movd 8(sp),(r2) 
 - f } e4 eee #24,sp 3; clean stack 
rs 
00000000'GF 05 FB 138A 5 8$: calls #5,g*ots$cvt_t_g 
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2. 08 13C1 blbc r0,20$ 
“ sof 13¢4 mov 8(sp),(r2) 
f 15¢9 add #24,sp : clean stack 
15 ie 
FO8S)§ 8631 135CD 20$ brw error 3; continue = no stack cleanup needed 
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-sbttl charfixd - character string to fixed decimal conversion 
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charfixd = character string to fixed decimal conversion 
functional description: 


This routine oeurerrs choracter $s rings of the os 
C<blanks>]CsignilintegerJC.CfractionJilei ECsigniexponentJ[<blanks>] 
to a fixed decimal value. 


inputs: 
y = address of source 
ri = length of source 
"¢ = address of destination 
r5 = precision and scale of the destination 


outputs: 
r0-r5 destroyed 
ré6-r14 preserved 
the input operand is converted to fixed decimal. 


local register usage 
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OPO 0000000000009 INN 
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! 3 
3 
183 an 
1B} an 
1 
1 4 
; 5 
ee 
1 
1 0 
1 1 
g 
1 4 
1 5 r0-r5 clobbered by string instructions 
1 $ r6 = address of next byte in source string 
1 r? = number of bytes coneteuny in source etrtng 
13D 8 r8 = address of next byte in leading separate temp 
13D 9 r9 = mask value for scanc 
' + : r10 = address of routine to convert from fixd to final destination 
1300 3108 
13D 104 ; 
! : ! 5 : local symbols 
1300 31 6 C 
00000001 13D 108 blank=1 
00000002 13D 109 pt=2 
00000004 : 4 119 exp= 
13D 6 H 
! ; Vi? ; local data 
1300 3115 ° 
13D 116 scantbl: 
000188 13D 113 eblkb 256 
0014D0 14D 133 $$$ti-. 
00013FO 14D 119 .=scantbl+*x20 
01 13F 120 byt blank 
opcode ! 4 : 1 .=scantbl+ 13e 
00001415 13FF $198 .=scantbletnas 
4 1415 31246 ebyte exp 
00001435 1318 125 .=scantbl+*x65 
4 138 1 § ebyt exp 
000014D0 14 127 .=$$$t1 
14D 1 3 
14D 1 
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100 } -enabl Lsb 
C7FO 14D 1 sentry pliScharfixd_r6,*m<iv,dv,r4,r5,r6,r7,r8,r9,710> 
14D 135 charfixd: 
+4 F049 CF SE 140 134 movab pli$cnvrt_hnd,(fp) 3; conversion gendtt ten handler 
A FC9OF CF 35 14D 135 movab wfixdfixd,r10 3 set completion routine address 
000A 140C 31 § brw charfix 3; do the conversion 
gr 
5E 10 ce 14DF 31 § 5$: subl2 #16 3° 3: get space for packed temp 
6— iF 00 £9 14€2 3140 cvtlp #9 #31, (sp) + set result to zero 
O0A6 31 14€E 14 brw 70$ 3: continue in common 
14E 142 charfix: 
oe BB 1469 314 pushr #*m<r2,r3> 3 save registers 
3 Bs 146EB 3144 clrl -(sp) : initialize scale factor 
56 65 D 14€D 3145 movq 0 r6 ; copy r0,r1 to ré.r 
5 g? 73 1ery 138 subl2 #32,sp ; get space for leading sep temp 
5 E 14F 14 mov | sp.r 3; copy leading sep addr 
66 5 a 1476 3148 skpc #*x20,r7,(r6) ; skip leading blanks in source 
; 13° 14FA 3149 beql 5$ 3; if eql, then all blanks, use 0 
57 0 oO 14FC 3150 movl r0,r7 3; update source length 
56 51 DO I14FF 3151 movl rier 3; update source pointer 
59 07 b° 1208 136 movl #<blank+exptpt>,r9 3 set mask to terminate integer 
gore 0 150 15 bsbw 95n_lead_sep 3 copy integer to lead sep temp 
2 ag D4 1508 3154 clrl (Sp) 3 set zero scale 
5 DS 1508 3155 tstl r 3: more characters? 
24 13 1500 138 beql 10$ 3 if ogt then no 
2E 66 91 #150F 315 cmpb (r6) ,#*a/./ 3 was integer finished by a decimal pt? 
1F 12 1512 3158 bneq 10$ : neq, no 
56 D6 1514 3159 incl r 3 advance source pointer past dec. pt. 
57 od7 1318 160 decl r 3 update source length 
0S FEB2 CF 66 57 2A 151 161 scan r7,(r6),scantbl,A<blank+exp> ; find end of fraction 
51 56 C2 i51F 196 subl 3 r6,r\ 3 get number of digits in fraction 
-~ 2: Sa ¢ 16 subl ri,r7 3; subtract from source length 
20 AE 51 8 15 164 movl r1,32(sp) 3 save as scale 
68 66 51 1529 3165 move r1,(r6), (r&) : copy frac to lead sep temp 
56 51 DO 1520 198 movl ri,r6 : update source pointer 
58 22 d0 (15 2 16 mov l r3or 3; update dest potnser 
58 a cs 1 193 10$: ed fa sp.r8 3: get size of leading sep string 
ec r : 
5E 10 cs 15 $ 19 subl2 #16,sp 3 get space for packed temp 
6— 1F 10AE 58 O09 1538 3171 cvtsp r8,16(sp) ,#31, (sp) 3: convert leading sep to packed 
57 oe 1541 Vie tstl r? 3: done with source string? 
4A 1 1363 17 beql 70$ : if eql, yes 
45 8F 66 91 154 174 cmpb (r6) ,#*a/E/ : qypenpnt specified? 
06 «13 iF 94 175 beql 20$ : if eql, yes 
65 8F 91 1548 176 capb (r6) ,#*a/e/ 3 exponent with a small e? 
12 154F 317 bneq 50$ : neq, no, check rest of source 
8 bg 1551 178 208: incl rg 3; skip past e or 
4 1 : 17 decl r 3; update source Length 
58 10 ag — 1 180 movab 16(sp),r8 3 point to lead sep temp 
5 DD 1559 3181 pushl r8 3 save address 
59 01 00 1 28 1 § movl #blank,r9 3: set mask to terminate exponent 
44 = «1 1 1 bsbb gen Lead_sep 3; transfer sign and exponent to lead sep 
58 ; C ' $ : : gust p).r : calculate size of lead sep 
ec r 
6— 04 14 AE 9 156 186 cvtsp 78,20(sp).#4,(sp) 3 convert exponent to packed 
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6E 6€E 4 3% 1 187 cvtpl #4,(sp),(sp) 3 convert exponent to lon 
30 AE BF 1 ef 1 5 sub ( 1S -4btsp) 3 subtract exponent from Sate 
1 1 bgeq 5 : if scale geq, we're set 
10 AE. 6E__is'IF 4 157 190 movp #3°,,(sp) ,16(sp) 3 copy packed integer and fraction 
50 30 af cf 1S7A 3191 mnegl 4 (393 °f ; get negative scale 
6— iF OO 0AE 1F 50 FB 157 19¢ ash r0,#31,16(sp),#0,431,(sp) ; s so we have positive scale 
A 4] 19 clr 4 (sp) : indicate this in scale factor 
66 «(557 ¢ 1 194 50$: skpc #*x20,r7, (r6) 3 ship past bianks 
12 158D 3195 bneq $ 3: if dlanks don't finish the source 
52. 34 AE 7D 158F 136 708: movq hail 3 get back original destination 
29 SE dO 1593 319 movi sp,r ; source is packed temp 
ww 1238 138 movl #31,r1 3 precision is max 
51 08 08 30 AE FO 159 1 insv & 30) #6 .08.r1 3; add in scale factor 
6A 1 +44 ? jmp (r10 3 return 
: rw error 3 continue = no stack cleanup neede 
EEB1 = 31 13A} 80$ b i k cl ded 
120% 04 -dsabl sb 
134% 82 3 + gen_lead_sep - copy sign and integer from source to destination 
15A4 09 3 this routine copies an vaeeger from the source string to the destination 
15A4 08 ; string. the destination string will be in leading separate format because 
15A4 09 ; gen_lead_sep will put a + into the first byte of the destination if there is 
15A4 10 ; no gy ees sign in the source ptring. the source Ste tne pointer 
15A4 11 ; will be updated to point past the integer. the source string length 
15A4 \¢ 3; will be updated to not include the integer. the destination pointer 
15A4 15; will point to the byte after the integer in the destination string. 
15A4 14 3 no checking is done as the the validity of the integer. any leading 
190 1? ; blanks should be removed before calling int_sign. 
13ne 9 3; inputs: 
15A4 18 3 4 = address of the source string 
15A4 19 3 r? = Length of the source string 
15A4 93 r8 = address of the destination string 
3 r9 = mask to use w scanc to determine end of integer 
13% 1 9 kt ith to det d of int 
15A4 : 3; outputs: 
15A4 4;3 rO-r5 destroyed 
15A4 5 3 r6 = address of the remaining source string 
15A4 § 3 r? = Length of the remaining source string 
15A4 3 r8 = address of the next free byte in the destination string 
15A4 Ss 3 r9-r14 unchanged 
AL BG | ° 
136 ; oon, tend, sep 
68 2B 90 15A4 § mo / #*a/+/,(r8) ; plug a + into the destination 
88 66 91 15A7 cmpb (r6),(r8)+ 3 was there a + in the source? 
05 13 I5AA 4 beql 10$ : if eql. yes 
2D 6 91 15AC 5 cmapb (r6) ,#*a/-/ 3 was there a -? 
6 12 15AF § bneq 20$ ; neq no, default to + 
FF A8 $ 90 1581 10$ movb (r6)+,-1(r8) 3 plug the source sign into the dest 
3 1585 8 decl r? 3; correct source length 
59 FE135 CF $6 7 A 1587 20$ scanc r/7,(r6),scantbl,r9 ; look for terminator in source 
1 6 C2 1 af rt subl r6,r] ; calculate length for move 
57 1 €2 36 4 subl ri,e? 3 correct source Length 
1 D1 15¢4 4g capl ri ,#31 sis this too big? 
03 18 15C7 4 blequ 30$ sif lssu , no, cont 
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15¢C9 4 brw ssignal error 

15¢ 28 30 movc3 ri. rtr6), (r8) ; nove the integer 

? 15D ‘$ movl ri of ; update pointers 

15D 4 movl r3, ; : 

1 dS rt: rsb 3 return 

15D 4 

1507 50 


8 9 
PLISCONVERT - pli general purpose data type conversi 16-SEP-1984 02:14:21 VAX/VMS Macro v0é-00 P 5 PLI$ 
SO0y char fled - chorecter to Task’ dertont co moet 7 96: 48:2) PLIRTL. SRCIPLICONVRT.MAR: 1 iit if tn 


} bf § pe sbttl charfltd - character to float decimal conversion 
: pf : ; charfltd = character to float decimal conversion 
DY : : functional description: 
1307 3 : This routine converts a character value to a float decimal value. 
: 4 60 ; inputs: 
1 4 ee : r0 = address of the source 
1507 ° 3 rl = size or precision of source 
15D7 4 ; = address of the destination 
1300 92 3 r5 = size or the precision of the destination 
130¢ e : outputs: 
1207 63 ; The destination is filled in . 
C090 1307 4 z steel pli$charfltd_r6,“m<iv,dv,r4,r7> 
char : 
6D EF42 CF 3 15D9 rg movab pli$cnyrt_hnd, (fp) 3 conversion condition handler 
FO6D 30 15DE 74 bsbw dest_fltd_prec 3; get dest context 
FD70 »=—330-—s—:«15E1 75 bsbw cvrt_char_flt 3 continue in common 
04 1564 76 ret 
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fehrfltd - fractioned character to float decimal conversion 


functional description: 


mgiomen Reg 


oc 


This routine converts a character value to a float decimal value. It 
accepts as input the default number of digits in the fraction, if no 
decimal point is contained within the character string source. This is 
currently used only by the e format input routine. 


inputs: 

r0 = address of the source 

rl = size or precision of source 

r2 = address of the destination 

r5 = size or the precision of the destination 

r4 = number of default fractional digits, if decimal point is missing 
outputs: 


The destination is filled in 
entry pli$fchrfltd hs ™ perce yh se 
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movab  pli$cnvyrt_hnd, (fp) 3; conversion condition handler 
FOSF 30 bsbw dest_fltd_prec 3; get dest context 
FD64 =30 a cvrt_fchr_flt 3 continue in common 

re 
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| on «sbttl charchar = convert character to character 
; 
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charchar = convert chai acter to character 
functional description: 
This routine converts character strings to character. 
inputs: 

r0 = address of the source 

ri = size or precision of source 

r2 = address of the destination 
r5 = size or the precision of the destination 
outputs: 


The destination is filled in 
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C030 ; elias sentry pliScharchar_r6,*m<iv,dv,r4,r5> 
charchar 
62 53 20 60 51 ef ; moves r1,(r0),#32,r3,(r2) 3 perform the operation 
re 
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-sbttl charvcha - convert character to character varying 
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charycha = character to character varying 
functional description: 
This routine converts character string to character varying. 


Z inputs: 
4 r0 = address of the source 
4 rl = size or precision of source 
4 "§ = address of the destination 
r3 = size or the precision of the destination 
outputs: 


The destination is filled in 


sentry pli$charvcha_r6,*m<iv,dv,r4,r5> 
charvcha: 
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DOOCO NAN WTNH nn 
DRS MMAAOOOOOOOOAOAOOOAOOOOO 


DDE PXD_D PAPA APs vrs 


S 
CONAN © OO NAUNE WI OOONO UNS 


PUPS E BS 


4 2} BO movw ri,(r2) 3 move size 
1 #6B1 cmpw ri,r3 3 that size fit? 
9 1 blequ§ 1 : if lequ then yes 
62 8 movw r3,(r2) 3 use smaller size 
8¢ 10$: tstw (r2)+ 3 point to string 
62 53 20 60 1 8 soves r1,(r0) ,#32,7°3,(r2) 3: move it 
re 
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! ! ; -sbttl charbit - convert character to bit 
161 ; charabit - character to bit aligned 
! } Z : charbit - character to bit conversion 
181 5 : functional description: 
131 ; This routine converts character string to a bit string. 
161 $3 ; inputs: 
161 71: ro = address of the source 
161 72; rl = size or precision of source 
161 73; ¢ = address of the destination 
161 74; r5 = size or the precision of the destination 
191 o? 3 r6 = bit offset of the destination 
161 7 : outputs: 
161 23 : The destination is filled in 
C070 161 he sentry pliScharabit_r6,*m<iv,dv,r4,r5,r6> 
1614 § charabit: 
6D EFO07 gf 9E 1614 movab pli$cnvrt_hnd,(fp) 3; conversion condition handler 
r9R8 7 198 se bsbu clr_abit_Etrailer ; clear abit last byte 
r ar 3 
C030 191 56 herbie sentry pliS$charbit_r6,“m<iv.dv.r4,r5> 
charbit: 
6D EEFB CF 9 1 es movab  plLi$cnvrt_hnd, (fp) ; conversion condition handler 
ag. 30 16 90 bsbw chr bit_dese ; reset bit destination 
D7 1628 91 10$: decl cr : get next 
1A 19 162A 38 blss 50$ 3; 1f lss then done 
51 D7 162C 9 decl ri 3 get next char 
16 19 16 94 blss 50$ 3; 1f lss then done 
54 9A 16 95 movzbl (r0)+,r4 : 
54 3 16 38 subb #*a/0/,r4 3 find bit equiv 
1 16 § 9 blss 70$ : if lss then out of range 
01 4 91 16 38 cmpb r4#i ; in range 
gf 1A 16 bgtru 708 ; if gtru then error 
62 01 56 4 FO 16 400 insv r4,r6,#1,(r2) 3; insert in List 
56 D6 164 401 incl r6 3; address next offset 
E2 11 19% ; § brb 10$ 3 continue until done 
ss TH 1848 404 50$: capl ri,r3 ; see if there's more chars in src 
iF 13 164 5 bleq 60$ : if not, br 
3) st 1e08 Y 55$: Sect rls ; get the remaining chars 
4 90 164F 34 movb (r0)+,r4 : 
4 4 1688 ; caee #*a/ /,r4 : see if blank 
60 51 i 16 41 chee #*a/ /,r1,(r0) ; if blank, then must be all blank 
D 135 1658 ti§ beql $ 3 all done, if all blank 
11 19 D 341 brb $ 3; else, error 
54 6 f 165F 3414 56$: subl #*a/0/,r4 : see if valid bit char 
3 196¢ 415 beql 55$ : » @ 
4 D7 166 416 decl r : if 1, ok 


Page 
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5 i | 1 aig Bre 388 : otherwise, error 
% 1 HE sos 
1668 i 1 70$ 


EDE7? = 31 


error 
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1 E r 3 a esbttl vchapic - character varying to picture conversion 
18 r ¢ ; vchapic = character varying to picture conversion 
16 4 3 : functional description: 
19 ; r : : This routine converts a character varying string to a picture value. 
166€ 3431 : inputs: 
166E 34 § : 
166E 3435 ; r0 = address of the source 
1905 434 ; rl = size or precision of source 
166 435 ; r2 = address of the destination 
ieee r § 3 r3 = size or the precision of the destination 
166E 34 : $ outputs: 
166E 3439 ; 
ee rr 3 The destination is filled in 
CFFO 166 44g ; sentry pli$vchapic_r6,*m<iv,dv.r4,r5,r6,r7,78,79,710,r11> 

16 445 vchapic: 

6D EEAB CF a 167 444 movab pli$cnvrt_hnd, (fp) 3; conversion condition hancler 
167 445 tstw r0)+ ; point to char string 

FC 1 167 446 brw charpic 
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a sbttl vechafixb - character varying to fixed binary conversion 
vchafixb = character varying to fixed binary conversion 
functional description: 
This routine converts a character varying string to a fixed binary value. 
inputs: 

r0 = address of the source 

ri = size or precision of source 


"§ = address of the destination 
r5 = size or the precision of the destination 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
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CONN 
W-OoPr>>>>>>>r>rrr>>>r>Yr rrr 
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outputs: 
The destination is filled in 
C7FO nate _enery pli$vchafixb_r6,“m<iv,dv.r4,r5,r6,r7,r8,r9,r10> 
vchafixb: 
6D EESF CF 9 movab pliS$cnvrt_hnd, (fp) 3; conversion condition handler 
tstw (r0)+ ; point to character string 
FCB4 1 71 brw charfixb 5 
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-sbttl vchafitb - character wsarying to floating binary conversion 
vchafltb = character varying to floating binary conversion 
functional description: 
This routine converts a character varying string to a floating binary value. 
inputs: 

S = address of the source 

rl = size or precision of source 

" = address of the destination 

r5 = size or the precision of the destination 
outputs: 

The destination is filled in 


entry pli$vchafltb_r6,*m<iv,dv,r4,r7> 
vchafltb: 
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6D E693 CF 4 movab pli$cnvrt_hnd, (fp) : conversion condition handler 
80 tstw (r0)+ 3; point to character string 
FCB7 1 8F brw charfltb 3; do conversion 
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‘ -sbttl vchafixd = character varying to fixed decimal conversion 
vchafixd = character varying to fixed decimal conversion 
functional description: 
This routine converts a character varying string to a fixed decimal value. 
inputs: 


r0 = address of the source 
rl = size or precision of se rce 
n 
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6 
6 
g "§ = address of the destination 
? r5 = size or the precision of the destination 
2 outputs: 
? The destination is filled in 
C7FO 16 sentry pliSvchafixd_r6,*m<iv.dv.r4.r5,r6,r7,78,79,r10> 
694 vchafixd: 
6D €€87 CF 44 694 movab  pli$cnvrt_hnd, (fp) : conversion condition handler 
0 699 tstw (r0)+ ; skip size of string 
FE34 1 1698 brw charfixd 3; convert as character 
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} 4 3 ie -sbttl vchafltd - character varying to float decimal conversion 
} g ; vchafltd = character varying to float decimal conversion 
! 4 5 : functional description: 
24: : ; This routine converts a character varying value to a float decimal value. 
169E 1: inputs: 
189 § 3 4 
169E 3 r0 = address of the source 
43 4; rl = size or precision of source 
169 5 3 ¢ = address of the destination 
1o3e § ° r5 = size or the precision of the destination 
169 8 : outputs: 
169 340 : The destination is filled in 
C090 169 346 j sentry pli$vchafltd_r6,*m<iv,dv,r4,r7> 
16A 543 vchafltd: 
6D €&€78 9 by 544 movab = pli$cnvrt_hnd,(fp) 3 conversion condition handler 

16A 545 tstw (r0)+ 3; point to string 

EFA4 0 16A7 $78 bsbw dest_fltd_prec 3; get dest context 

0 es th bsbw cvrt_char_flt 3 continue in common 
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' 19AE fap -sbttl vchavcha - convert character varying to character varying 
! Ae ; vchavcha = convert character varying to character varying 
iene 4 ; functional description: 
1eAE § ; This routine converts character varying strings to character varying. 
1oA5 8 : inputs: 
16AE 60 ; rO = address of the source 
1oA5 29 3 ri = size or precision of source 
16AE 3 " = address of the destination 
1oAe 287 3 r5 = size or the prox tation of the destination 
1oAE 29 : outputs: 
Tone 387 : The destination is filled in 
C030 1on5 569 . ical sentry pliSvchavcha_r6,“m<iv,dv,r4,r5> 
vchavcha: 
$¢ 2) 80 1988 571 movw r1,(r2) ; insert size 
1 B61 168 276 cmpw ri,r3 ; room for source 
eh sige fet pa ae oe 
82 80 61 1688 3575 10$: cmpw Crbsee% ; point to strings 
62 53 20 60 51 2C 16BE 376 moveS ri, (76). #32, r3,(r2) ; move it 
04 16€4 357 ret 
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] : 79 ke -sbttl vchachar = convert character varying to character 
! : ? ; vchachar = character varying to character 
¢ 5 ; functional description: 
1e¢ é 5 : This routine converts character varying strings to character. 
19 : 5 ; inputs: 
16C : § : r0 = address of the source 
16C 590 ; rl = size or precision of source 
16C 591 ; r2 = address of the destination 
Jobe 236 3 r3 = size or the precision of the destination 
185g $385 | cutouts: 
16C3 396 ; The destination is filled in 
C030 16cs 398 : hachar2ert”” pli$vchachar_r6,*m<iv,dv,r4,r5> 
vchachar: 
80 B85 16C7 3600 tstw (r0)+ 3 
62 53 20 60 51 =2¢ 16C€9 3601 moveS ri,(r0),432,r3,(r2) 3 move it 
04 16CF 3602 ret 
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-sbttl 


inputs: 


r 
r5 = 
r6 = 


outputs: 


entry 
vchaabit: 


vchabit: 


AD ba Fas i 16-SEP-1984 


functional description: 
This routine converts a character varying string to a bit string. 


r0 = address of the source 

rl = size or precision of source 

address of the destination 

size or the precision of the destination 
bit offset to destination 


The destination is filled in 
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vhcabit = character varying to bit string conversion 
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5 a 
vchabit = character varying to bit string conversion 


pli$vchaabit_r6,“m<iv.dv.r4,r5,r6> 


pli$cnvrt_hnd, (fp) 3 conversion condition handler 
clr_abit_frailer ; clear abit last byte 


vchabit 
pli$vchabit_r6,“m<iv,dv,r4,r5> 


ei ipeners_ pnd. £0ps 3; conversion condition handler 
r . 


charbit 3 
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-sbttl bitpic - bit string to picture conversion 
bitpic = bit string to picture conversion 
functional description: 


This routine converts a bit string value to a picture value. 


inputs: 
r0 = address of the source 
ri = size or precision of source 
r2 = address of the destination 
r5 = size or the precision of the destination 
r5 = bit offset to source 
outputs: 


The destination is filled in 
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C010 seal entry pli$bitpic_r6,“m<iv,dv,r4> 
pic: 
woe. wee subl #16,sp ; alloc packed temp 
25 DD pushl r2 ; make frame for pic cvrt before regs go awa 
7E O4A oA movzbl picSb_byte_size(r3),-(sp); frame target siz 
52 O08 AE 9E movab (sp).r 3; reset dest to temp 
¢ D pushl r2 3 push it as pic cvrt src 
oS C 666 movzwl pic$w_pq(r3),-(sp) 3; push target p.q as src p,q 
53 D 6 pushl f3 3; pic node addr 
53 63 C 664 movzwl pic$w_pq(r3),r3 3; reset dest size as pic p.q 
0067 30 665 bsbw cvrt d 3 conv bit src to fix dec 
000N0000'GF 05S FB 
04 3667 ret 


t_fix 
666 calls #5,g*pliS$cvt_to_pic : frame all set, cvrt dec to pic 
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bitfixb = bit string to fixed binary conversion 


functional description: 
This routine converts a bit string value to a fixed binary value. 
inputs: 


r0 = address of the source 

size or precision of source 

address of the destination 

size or the precision of the destination 
bit offset to source 


329595 
Wn 
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outputs: 
The destination is filled in 
sentry pliSbitfixb_r6,“*m<iv,dv,r4> 
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itfixb: 
01 19 + cvrt_bits_fixb 3; use common routine 
re 
cyurt_bits_fixb: 
EEAS 30 bsbw chk_bit_arith ; check values 
ie ve: Oe ee extzv 5,r1,(r0),r0 3 get bit string 
55 5E 00 mov sp.r5 ; address a temp 
7E D4 clrl -(sp) 3 
54 50 9A 699 10S: movzbl r0,r4 ; get low order byte 
75 EBDA CF44 90 700 mevb = reverse_bit_tbl([r4],-(r53 ; get reversed byte 
ee F8 BF 7 701 ashl #-8,r0,r0 ; shift src down a byte 
FOO re bneq 0$ 
55 2 it 5704 subl3 -1,432,r5 ; adjust for proper prec. 
6— 6€ oe 3 705 extzv r5,r1,(sp),(sp) 3; move it down 
50 6€ oe movab sp), ; address src 
ne 3 70 bsbw curt_fixb_fixb ; convrt to dest 
E 04 708 clrl (sp)# : clean stack 
05 709 rsb 
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sbttl bitfltb - bit string to floating binary conversion 
bittltb - bit string to floating binary conversion 


~~ 


functional description: 
This routine converts a bit string value to a floating binary value. 
inputs: 


neral p 
bit s 
4 1 
1 
1 
14 
He 
tt 
415 
720 
721 r0 = address of the source 
7 § rl = size or precision of source 
725 ; r address of the destination 
724 ; r size or the precision of the destination 
g $3 r bit offset to source 
4 $ ; outputs: 
, ; : The destination is filled in 
1 
73 
734 
8 3735 
9 37 $ 
9 37 
C 3738 
F 3739 
¢ 740 
741 
8 4g 
B 374 
F 3744 convert temp to fltb 
¢ 745 addl 3? 
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C090 series entry pliSbitfltb_r6,“m<iv,dv,r4,r7> 
pec? 0 sbw dest_ ftp, ees 3; get dest context 
001 be oe cvrt_b 
cvrt bit. fle: 
7 52 70 mova r2,-(sp) 3; save dest 
5 7E «ODE moval -(sp) r2 ; allocate room for a temp 
5 1F D0 mov l #3ir 3 specify max prec 
res 30 bsbw cvrt bits fixb 3; convert source to fixb 
50 —E 00 movl 8 r 3 temp is now source 
51 =F 44 mov | # {, + 3; with max prec 
52 04 AE D movqg 4(sp) 3 restore dest 
F4C1 =. 30 bsbw eve. Hieb. flt : 
a ae 12 
05 746 rsb 
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sbttl bitfixd - bit string to fixed decimal conversion 
bitfixd - bit string to fixed decimal conversion 
functional description: 


é This routine converts a bit string value to a fixed decimal value. 
inputs: 
4 rO0 = address of the source 
rl = size or precision of source 
r2 = address of the destination 
6 r5 = size or the precision of the destination 
r5 = bit offset to source 
outputs: 


The destination is filled in 
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C010 ions entry pliSbitfixd_r6,“m<iv,dv,r4> 
01 10 curt_bit_fixd 
04 ret 
cyrt_bit_fixd: 
7E 05 Estl -(sp) 3 allocate some room for temp 
Oc «6«BB \) pushr #*m<r2,r3> ; save real destination 
52 O08 AE OD F moval 8(sp),r2 ; dest addr is on stack above r2,r3 
53 OF 3 3 mov l #31,°3 3; length is max 
FF98 g bsbw cvrt_bits_fixb ; convert to fixb 
9c BA popr m<re,r : restore dest 
50 ct. movl so,r 3 specify source is on stack 
51 Ff ge movl #3i,r1 3; specify max precision for source 
F593 0 bsbw curt_fixb_fixd ; convert to fixd 
8E Be sent (sp)? ; clean stack 
rs 
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17 4 4 5 nee -sbttl bitfltd - bit to float decimal conversion 
7 f f $ ; bitfltd - bit to float decimal conversion 
7 f f § : functional description: 
if f 731 ; This routine converts a bit value to a float decimal value. 
7 f 738 : inputs: 
1787 538 ; r0 = address of the source 
1787 038 3 rl = size or precision of source 
1787 3797 ; "§ = address of the destination 
Ve 4 £38 ; r5 = size or the precision of the destination 
7 g 90 ; outputs: 
1787 0¢ ; The destination is filled in 
C090 1787 3804 ° sentry pliSbitfltd_r6,*m<iv.dv.r4,r7> 
1789 05 bitfltd: 
EEC2 30 1589 $0 bsbw dest_fitd prec 3; get dest context 
FFBA 30 HA 144 bebe cvrt_bit_flt 3 cont in common 
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purpose data type conversi 16-SEP-1984 
string to character conver 


-sbttl bitchar = bit string to character conversion 
bitchar = bit string to character conversion 
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functional description: 


address of the source 

size or precision of source 

address of the destination 

size or the precision of the destination 
bit offset to source 


The destination is filled in 
entry pliSbitchar_r6,*m<iv,dv.r4,r7,r8> 
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ges next_sebits 
32,r7 
r3 
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30$ 
#0,(RO) ,#*A/ /,R8,(R2) 


r0 = base address of string 
1 = remaining siz 


€ 
r5 = offset from base to string 
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This routine converts a bit string value to a character string. 


scopy dest size 

zsee if blank fill needed in dest 
sif source geq dest, then no 

sset dest size=source size 

sget count for blank fill 


get next field 

set loop count 

count target character position 
f lss then done 

assume zero 

test bit 

set to a one 

point to next character 

adjust value 

continue until done 

get next fie 


zssee if blank fill needed 
sif not, br 
sMOVE IN THE BLANKS 


; get_next_32bits - get next 32 bit field from source bit string 


r0,r1.r5 are updated to address then next field 
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i 16-SEP-1984 02:14:21 VAX/VMS Macro V04-00 
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PLISCONVERT = pli 
ee ti bitchar - bit string to character conver 6- 


} f 7 3 r4 = value 
17¢ § get_next_32bits: 
4 0 oO i17¢ mov l #32,°4 $ gsure 32 bit return 
4 1 oF 17¢¢ 7 cmpl ri,r4 i 32 bits remaining? 
i“ : 14 7c , bgtr 10$ ‘ : if gtr then yes 
mo rir : 
0B 3 1704 387% beqt 208 : 4f eg then done 
1 e¢ C 1706 75 10$: subl r4,ri : remove bits from count 
54 60 3, 5 EF 17D 16 extzv 5,°4,(r0),r4 3; get the bits 
0 04 0 17DE 7 addl #4,r0 3 point to next field 
17E 8 20$: rsb 3 
Ve ih 
ve ? : put_next 32 bits - insert next 32 bit field 
Ve $ : inputs: 
17E 5: r2 = base address of the field 
17E § : r5 = size remaining 
17E 3 r6 = offset from base to field 
ive : 3 r4 = value to insert 
ve 890 outputs: 
Ve $36 : r2,°3,16 are updated to address then next field 
17 94 put_next_32bits: 
57 20 DO 17E Boe vette ete movi - AY : assume 32 bit insert 
57 D1 17€ 38 cmpl r3,r7 3; room for 32? 
03 14 1768 389 bgtr 198 : if gtr then yes 
57 DO 17EA 98 movl r3,r7 3; set low value 
08 13 17ED 3899 beql $ : if eql then no room 
53 : C2 17EF 3900 10$ subl r7,r3 3 remove size 
62 S57 56 oe iors 901 insv r4,r6.r7,(r2) ; insert field 
52. 04 CO I17F 44 addl #4,r2 3 point to next field 
05 17FA 3903 208: rsb 


ES atatatatatotatatat 11-11-11. te td 
7.1. > eee eee od 


J 10 
PLISCONVERT - pli general purpose data type conversi 16-SEP-1984 02:14:21 VAX/VMS Macro v04-00 P 1 
thos bitvchs - bit Str ng to charecter varyin pa iets 96:43:26 YPLIRTL. SREIPLICONVRT .MAR: 1 int ¢) 
-sbttl bitvcha - bit string to character varying conversion 
bitvcha = bit string to character varying conversion 
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functional description: 
This routine converts a bit string value to a character varying string. 


inputs: 
r0 = address of the source 
rl = size or precision of source 
r2 = address of the destination 
r35 = size or the precision of the destination 
r5 = bit offset to source 
outouts: 


The destination is filled in 


sentry pli$bitvcha_r6,“m<iv,dv.r4,r7,r8> 
itvcha: 
movw ri,(r2) 
cmpw 
blequ 10 
movw r3,(r2) 
tstw (r2)+ 
brw bitchar 


insert source size 
enough room for source? 


use smaller size 
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-sbttl bitbit - bit string to bit string conversion 
bitbit = bit string to bit string conversion 

functional description: 


This routine converts a bit string value to a bit string. 


inputs: 
r0 = address of the source 
rl = size or precision of source 
r2 = address of the destination 
r5 = size or the precision of the destination 
r5 = bit offset to source 
r6 = bit offset to the destination 
outputs: 


The destination is filled in 
entry pliS$bitbit_r6,“m<iv,dv,r4,r7> 


108: bsbw get_next_32bits 3; move field 
bsbw put_next_32bits 


: 
3; source remaining? 


tstl ri 

bneq i : if neq then yes 
tstl r 3; target remaining? 
bneq 10$ 3 
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a. ~sbttl bitabit - bit string to bit aligned conversion 
bitabit - bit string to bit aligned conversion 
functional description: 
This routine converts a bit string value to a bit aligned string. 
inputs: 
0 = address of the source 
1 = size or precision of source 
¢ . arerece of the destination 
5 = bi 


ze or the precision of the destination 
t offset to source 


39939595 


outputs: 
The destination is filled in 
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CODO Seebit entry pli$bitabit_r6,*m<iv,dv.r4,r6,r7> 
abit: 
F751 30 bsbw clr_abit_trailer 3; clear abit last byte 
EA 11 brb bitbit 3 
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1 -sbttl abitpic = bit aligned to picture conversion 
; abitpic - bit aligned to picture conversion 

functional description: 

This routine converts a bit aligned string to a picture value. 

inputs: 

r0 = address of the source 


r address of the destination 
r size or the precision of the destination 


= 
re = size or precision of source 
= 
= 
outputs: 
The destination is filled in 


-entry pliSabitpic_r6,“m<iv,dv,r4> 
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; clr src bit offset 
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r r5 
brw bitpic 
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xed binary c 6=SEP- 
-sbttl abitfixb - bit aligned to fixed binary conversion 

abitfixb - bit aligned to fixed binary conversion 

functional description: 

This routine converts a bit aligned string to a fixed binary value. 

inputs: 

address of the source 


rl = size or precision of source 

r2 = address of the destination 

r5 = size or the precision of the destination 
outputs: 


The destination is filled in 
entry pliSabitfixb_r6,*m<iv,dv,r4,r5> 


abitfixb: 
clr r5 3; set no source offset 
brw bitfixb ay 
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i -sbttl abitfltb - bit aligned to floating binary conversion 
abitfltb = bit aligned to floating binary conversion 
functional description: 
This routine converts a bit aligned string to a floating binary value. 
inputs: 

r0 = address of the source 


rl = size or precision of source 

r2 = address of the destination 

r3 = size or the precision of the destination 
outputs: 


The destination is filled in 


sentry pliSabitfltb_r6,*m<iv,dv,r4,r5,r7> 
abitfltb: 
clr r5 ; set no source offset 
brw bitfltb ; continue in common 
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1-007 abitfixd = bit aligned to fixed decimal 6-SEP-1984 6:46 (CPLIRTL.SRCIPLICONVRT.MAR; 1 ( 

} . $ $3 me «sbttl abitfixd - bit aligned to fixed decimal conversion 

A 4 és ; abitfixd - bit aligned to fixed decimal conversion 

A 4 $} : functional description: 

: ; 4068 ; This routine converts a bit aligned string to a fixed decimal value. 

18 A 4071 : inputs: 

183A 4 ig : r0 = address of the source 

183A 4074; rl = size or precision of source 

183A 4075 ; r2 = address of the destination 

183A 2058 3 r5 = size or the precision of the destination 

183a 409 : outputs: 

iB3a coo : 

tH rt 3 The destination is filled in 

C030 183A i082 ‘ entry pliSabitfixd_r6,*m<iv,dv,r4,r5> 
183C 4083 abitfi a 
55 04 183C 4084 r5 : set no source offset 
FF27 30 i 4085 te bittixd : continue in common 
04 1841 4086 ret 


150 


7 = address of the destination 
r5 = size or the precision of the destination 


outputs: 
The destination is filled in 
-entry pliSabitfltd_r6,“m<iv,dv,r4,r5,r7> 
abitfltd: 
3; clr bit offset 


r5 
bsbw dest_fltd_prec 3 get dest context 
t+ cvrt_bit_flt 3 cont in common 
re 
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+007 abittl d- + Pat gned to float decimal 6~SEP-1984 96:3 i86 UPL IRTL.SREIPLCONVRT MAR: 1 = (3) 

¢ * esbttl abitfltd = bit aligned to float decimal conversion 

: ; abitfltd = bit aligned to float decimal conversion 

? ; functional description: 

2 ; This routine converts a bit aligned value to a float decimal value. 

2 ; inputs: 

4 : rO = address of the source 

rt ; ri = size or precision of source 
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-sbttl abitchar - bit aligned to character conversion 
abitchar = bit aligned to character conversion 
functional description: 
This routine converts a bit aligned string to a character string. 
inputs: 

r9 = address of the source 
size or precision of source 


' address of the destination 
r5 = size or the precision of the destination 


outputs: 
The destination is filled in 
sentry pliSabitchar_r6,*m<iv,dv.r4,r5,r7,r8> 


abitchar 


C180 


clrl r5 3 set no source offset 
a bitchar 3 continue in common 
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-Ssbttl abitvcha - bit aligned to character varying conversion 
abitvcha - bit aligned to character varying conversion 
functional description: 
This routine converts a bit aligned string to a character varying string. 
inputs: 

rO = address of the source 

ri = size or precision of source 

A = address of the destination 

r3 = size or the precision of the destination 
outputs: 

The destination is filled in 


-entry pliSabitvcha_ré6,*m<iv,dv,r4,r5,r7,r8> 
abitvcha: 
¢ 


ot + 8 = 2 — — 9 sd 9 8 1 SS 2  s — 
Foe oP oP oP oP oP ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot tt ee 
ek ae ae ed ed 8 = Ss 2 3) 4 2 2 
AAAAACOUUIUMUUUUNUIUNE BEER RRR EE 
EWR SO OONAUE WOOO NOAUE WOOO 


VAM D COPA LLL LLLP PLL PPP PLL EEE 


DDD PPPs 


04 r5 ; set no source offset 
B0 movw r1,(r2) 3 assume that source will fit 
D1 cmpl ri,r3 3: fit? 
18 blequ§ 10 3; if lequ then ok 
B80 18 movw r3,(r2) 3 set max size 
5 18 10$: tstw (r2)+ ; address string 
1 18 brw bitchar 3 continue in common 
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sbttl abitbit - bit aligned to bit string conversion 


abitbit - bit aligned to bit string conversion 


Ss tama - pli 


U 
abitbi l 


r 
-b 


functional description: 

This routine converts a bit aligned string to a bit string. 
inputs: 

dress of the source 

ze or precision of source 

dress of the destination 

ze or the precision of the destination 
t offset to the destination 

outputs: 

The destination is filled in 

entry pliSabitbit_r6,“m<iv,dv.r4.r5,r7> 


clrl r5 3; set no source offset 
brw bitbit 3 
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6F esbttl abitabit - bit aligned to bit alivned conversion 
abitabit - bit aligned to bit aligned convers’ 
functional description: 


This routine converts a bit aligned string to a wit aligned string. 


1 41 § 
1 4) ; 
1 4194 ; 
1 4195 ; 
1 2138 3 
1 a18 3 
iBer 6199 | 
! of r 3; inputs: 
186F 4 § 3 r0 = address of the source 
186F 4 3 rl = size or precision of source 
186F 4204 ; r2 = address of the destination 
186F 4205 ; r5 = size or the precision of the destination 
: : ? Bg 3 r6 = bit offset to the destination 
} of ? o8 3; outputs: 
! of ? 9 3 The destination is filled in 
COFO 1 ef 4 \¢ entry pliSabitabit_r6,“m<iv,dv,r4,r5,r6,r7> 
1871 4213 abitabit: 

55 4 1871 4214 clr r5 te ; set no source offset 
FOFE 0 1873 4215 bsbw clr abit_trailer ; clear abit last byte 
FF96 1 1876 4 16 brw itbit 3 

1879 421 
1879 4218 .end 
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PLISCONVERT 
Symbol table 


K 11 
- pli general purpose data type conversi 16-S 


Cross-reference output 
Assembler run totals 


PLISCONVERT EP=1984 02:14:21 
Symbol table aes 7 96:43:26 
Siksan = 0 01 
SRC_FLTB_PREC 8 58 R 
+ PREC 62D R 
SS$_ CONTINUE eeeeeere 8 6X 
SS$_DECOVF eerereee 8 6X 
SS$_INTOVF eeeeeeee =X 
SSS_RESIGNAL eenerere 8 6X 
SS$_ROPRAND eererere 8 6X 
STK_L_AP 00000 
STK-L-ARG_LIST FFFFFFF 
STK_L_CND_HND 0000000 
STK-L-CND-LST FEFFFFFSG 
STK-L-DISPLAY FFFFFFFC 
STK_L_FP 4 
STK_L_PC 000001 
STK_L_PSL 94544 
STK_L_REGS 0000014 
VCHAABIT 00016D2 R 0 
VCHABIT Babe ed B 0 
VCHACHAR popes R 0 
VCHAF IXB 0000167C R 0 
VCHAF IXD Boe ees R 0 
VCHAFLTB 0001688 R 0 
VCHAFLTD 4's bo K 0 
VCHAPIC 00001670 RK 0 
VCHAVCHA 00001680 R 02 
$e rere sec ecweoceose + 
; Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
. 6... 00000000 ( 0.) 00 ¢ OO.) NOPIC USR CON ABS LCL 
S$ FFFFFFFC ¢ 0.) O1¢ 1.) NOPIC USP CON ABS LCL 

_PLISCODE 00001879 ( 6265.) 02 (¢ 2.) PIC USR CON REL LCL 

Suen 

H Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 1 :00:00.04 :00:02.07 
Command processing 5 8: 8:8 w 8: : 5:35 
Pass 1 320 8: 0:1 3 0:00:36.84 
Symbol table sort 0 :00:00. 0:00:01.44 
Pass 404 0:00:07. 0:00: 6.93 
Symbol table output 0: 18 :00: 6 
Psect synopsis output 1 :00: 8: 

0 0:01:14. 


BBE 


09 


4 


The york ing set Limit was 1800 pages. 
88039 bytes_(172 pages) of virtual memory were used to buffer the intermediate code. 
There were 30 pages of symbol table ce allocated to hold 352 non-local ang 240 Local symbols. 


a d 
4218 source Lines were read in Pass i? producing $68 object records in Pass 


AX/VMS Mac 00 
NVRT.MAR; 1 


PLIRTL.SRC 


ro V04 Page 12 
4PLICO oe 128; 


NOSHR NOEXE NORD NOWRT NOVEC BYTE 
ss EXE RD 


WRT NOVEC BYTE 


EXE RD NOWRT NOVEC LONG 


L 11 
- pli general purpose data type conversi 16-SEP-1984 7:14:21 VAX/VMS Macro V04-00 Page 121 
ohiett hones Run Statistics ~ _ ” 66-SEP-1984 oF: 6:46 (CPLIRTL. 3 RCIP LICONVRT.MAR; 1 . (3) 


33 pages of virtual memory were used to define 31 macros. 
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! Macro Library Statistics ! 


§aneeesesensern= een ae canna >} 


Macro Library name Macros defined 
Ritts # PLIRTL shi arL UnTmac MLB; 1 5 
SSL183 STARLET. MLB;2 4 
Toran ¢ (all Libraries) 11 


198 GETS were required to define 11 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DISABLE=TRACEBACK/LIS=LIS$:PLICONVRT/OBJ=OBJ$:PLICONVRT MSRC$:PLICONVRT/UPDATE=(ENH$:PLICONVRT)+LIB$:PLIRTM 
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